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SCOPRI LA DIFFERENZA DYSAN 



Perchè Dysan? 
Le Quattro 
Ragioni Per 
Preferire la 
Differenza 
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1 M»()% dì superficie 
i testata "error free " 

Solo Dysan garantisce che 
iurta la superficie della 
diskette sia realmente 
1007» “crror free": un tesi 
esclusivo cernì iva le tracce 
e lo spazio tra le tracce 
assicurando presta/ ioni 
^crror lice’ anche in 
presenza ili 
disallinea mento delle 
testine. 


Lsclusivu tecnica 
i di Bumishing 

Siilo Dysan garantisce una 
superficie “a specchio 
grazie alla sua avanzata ed 
unica tecnica di 
"butnishine - questo 
risultato assicura un 
miglior segnale sulle 
tracce, una minor 
turbolenza sulle testine, 
consentendo un sicuro 
mantenimento dei dati 
dopo mi 1 ioni e milioni di 
rotazioni. 


Speciale 
i lubrificazione 

Siilo Dysan garantisce, 
mediarne uno speciale 
procedimento di 
lubrificazione, ottenuto 
trattando la superficie con 
il proprio esclusivo 
lubrificante I D HC che le 
prestazioni “errar free” 
stano esaltate e mantenule 
nel tempo. 


Certificazione 
• totale 

Solo Dysan garantisce. . 
il suo metodo automatico 
di controllo qualità di uc 
la produzione (risultati * : 
una tecnologia leader nc . 
mondo) die ogni diskcti 
prodotta sia stata 
singola! mente testata v 
certificata 






datamatic 

TRATTA SENE ITUO CALCOLATORE 
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Cifre dopo la virgola 

□ E T possibile visualizzare un numero 
determinato di cifre dopo la virgola? 

• Supponiamo che il numero in questio- 
ne valga 3, 1234567 e che sia assodato alla 
variabile ''A". Supponiamo inoltre che il 
numero desiderato di cifre dopo 3a virgo- 
la sia 3 e che sia associato alla variabile 
"B'\ Con tali premesse, basta eseguire 
nclfordine Ee operazioni che seguono: 
a/ Moltiplicare A pei 10 elevato a l B", 
vale a dire per la potenza di 10 che (Pos- 
siede il numero di zeri eguale al numero 
di cifre desiderato. Nel caso particolare 
otterremo 3 123.4567, In altre parole poi- 
ché il numero è 3 si moltiplica per Ì(XM), 
Se fosse 2 si moltiplicherebbe per filo, se 
fosse 4 per 1(X)00 eccetera. 
bì Associare ad “À" { o ad altra variabile) 
la parte intera dei numero calcolato nel 
modo descritto Nell'esempio citato si 
avrà 3. 123, 

c / Dividere per 1000 ottenendo in defini- 
tiva: 3.Ì23, 

Si tenga presente che le tre operazioni 
descritte potrebbero essere cumulate in 
un'unica espressione, in alcuni casi ab- 
biamo però notato delle irregolarità. Si 
consiglia pertanto di adoperare tre istru- 
zioni separai e. 



11 secondo processore 

□ A che serve it secondo processore nel 
Commodore 647 

• E' in vendita, come scheda a parte, 
quella contenente il microprocessore Z- 


80 che abilita il Commodore 64 a lavora- 
re sotto CP/M. Questo è un sistema ope- 
rativo che può funzionare solo con quel 
microprocessore dato che à troppo ar- 
duo “simulare" col 65 10 (micro del C-64) 
!c sue funzioni. Si tenga ben presente che 
pur se si correda il proprio Commodore 
64 con detta scheda, non è possibile, co- 
me alcuni invece credono, inserire nel 
1541 un dischetto utilizzato da altro com- 
puter che lavora col CP/M e vederlo 
funzionare. 

Il passaggio di programma e file da un 
secondo computer CP/M verso il 64 è 
possibile solo attraverso un connettore 
tra i due computer e t di conseguenza, è 
indispensabile la co-presenza dei due ap- 
parecchi al momento dello scambio di 
informazioni. 

Nessun problema, invece, se un di- 
schetto CP/M è stato realizzato ricorren- 
do ad un altro Commodore 64 dotato di 
CP/M. 



Super Espander & SEmon’s Basic 

□ Perchè non pubblicate mai listati che 
utilizzino le capacità dei cartrìdge 
5UPER-EXPANDER (Vie 20) e SI- 
MONIS BASIC (Commodore 64)? 

• Non tutti ì lettori posseggono tali prò- 
grammi e, di conseguenza, articoli e li- 
stati che li utilizzano non li 
in tesserebbero. 

Non appena, comunque, sapremo che 
la percentuale det nostri lettori ò tale da 
giustificare una serie di articoli in tal sen- 
so, sarà nostra premura pubblicarli. 


Registratori o nastri difettosi? 

□ Ho comperalo La cassetta da Vói recla- 
mimi ta (Commodore Club L. 4800) ma 
non riesco a caricare i listati nonostante 
che lo stesso registratore che adopero 
normalmente carica perfettamente i miei 
programmi. Come mai? 

• il Master con cui sono state realizzate 
quelle cassette è slato provato con note- 
vole cura e non possiede difetti. Teniamo 
a precisare che il posizionamento della 
testina, prima della registrazione, è stato 
verificato e risponde alle norme. 

Una minima parte dei nastri posti in 
commercio ha le etichtte invertite; dove 
Uè scritto VIC sono registrati programmi 
per il 64 e viceversa. II numero di tali 
esemplari, lo ripetiamo, è minimo, e non 
pensiamo che questo sia il tuo caso 
Come abbiamo avuto modo di dire in 
passato, È molto probabile che il tuo regi- 
stratore abbia la testina di lettura/ 
scrittura sfasata. Ciò vuol dire che ‘ scri- 
ve’ 1 sui nastro in una posizione legger- 
mente più elevata (o più in basso) di 
come dovrebbe. In conseguenza di ciò i 
programmi che scrivi sci perfettamente 
in grado di leggerli, dato che la testina è 
sempre la stessa sia per scrivere che per 
leggere. Se invece cerchi di leggere nastri 
sentii.,, al posto giusto, l'operazione ri- 
sulta difficoltosa per il computer, che 
può addirittura non rilevarli o rilevarli 
male (LGADING ERROR). 

tn questi casi, soprattutto se avete 
molti nastri ormai registrati col registra- 
tore ‘sfasato ", correggere I 1 allineamen- 
to significherebbe poter leggere i nastri 
in vendita o quelli scritti con registratori 
perfettamente allineati, ma significhe- 
rebbe, purtroppo, non avere più la possi- 
bilità di leggere quelli scritti in 
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impara ii Basic, dominerai U computer 


NUOVO CORSO 



Torse nei prossimi anni, forse solo ira qualche meseo addirittura gì - 
domani anche per ‘e se non vorrai restare indietro, si porrà il probio 
ma di imparare a dialogare con il computer Che lare^ Accadem e 
forte dei suoi 35 anni di esperienza net campo deli insegnamento u 
distanza li propone la soluzione ottimale il suo nuovo corso di prt 
grannmaZ'One BASIC su persona: computer che rappresenta io sto., 
mento più pe razionato oggi reperibile per chi vuole imparare a ge ■ 
re !' informai ione con i'elaborazione elettronica dei dati 

un corso per tutti 

il corso Accademia di programmazione 
BASIC su personal computer prende le 
mosse da il' ABC dell'informatica e. spie- 
gandone i concelti in modo accessibile a 
tutti permette a chiunque, anche se nuovo li 
questo settore, di apprendere in breve tempo 
ie tecniche della programmazione 

Basic: il linguaggio 
dei personal computer s 

Imparare ao esprimersi in BASIC è indispensabile a 
chr vuole saper utilizzare correttamente il computer 
per dare una nuova dimensione at proprio lavoro, ai 
propri studi o all' amministrazione familiare, oppurt 
per acquisire preziose conoscenze che potranno n 
velarsi indispensabili in un futuro molto prossimo 
Con il corso Accademia il linguaggio SASEC m pochi- 
settimane non avrà più segreti per le. e n personal di 
vernerà il tuo collaboratore più fedele e 
Qualificato, 


di programmazio ne BA SIC 
su personal 
computer 


Hai già un personal computer? Vuoi acqui- 
starne uno? Accademia ti propone un corso 
teorico- pratico di facile comprensione anche 
per chi si avvicina per la prima volta all'in- 
formatica, che ti mette fin dai primo giorno 
in coniatto diretto col computer. 

Imparerai prima a digitare e poi a program- 
mare sul COMMODORE 64, sull' A TARI 
300XL o 400 o su II "Olive Iti MIO che t se lo 
desideri, potremo fornirti a condizioni parti- 
colarmente interessami o in comode rate. 

Vuoi saperne di piuì 
Spedisci subito H tagliando 

Aure 12 proposte &• Accademia per il tuo futuro: 
A-riedarort! Disegno e pittura ■ Smista - Fotografo 
Grafico pubblicitario - Vetrinista Tecnico pubbli- 
cità r io Giornalista - Infortunistica si radale - Tec- 
niche di gestione a; rendale ■ Interprete - Lingue 


studio, lavoro, tempo libero 


corsi 


EPEfQira E 


per imparare a casa 


se vuoi guadagnare tempo 

Delta alia nostra segheria (MfrmaRwna 
fun; pongale 24 ore su 24 , Ofc & Ì TO* 3t4l 
nome cognome, indirizzo ?. 
corso che ti interessa 4"^ 

Riceverà' im mediata meni el 

le informazioni _ „ 


| ACCADEMIA- Via Diomede Marvasi 12 /W 00163 Roma 

Desajero ricevere mtormazicrM sul vostro corso di programmazione BASIC 
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Con i nuovi programmi itali 

Commodore 64 ser 


Per tutti i possessori, anche futuri, del 
personal computer Commodore 64 c’è 
un’importante novità: la creazione dì una 
vasta serie di nuovi programmi realizzati 


espressamente per le esigenze italiane. 

Con questi programmi i tecnici italiani 
della Siiius Elettronica mettono a disposi- 
zione un servizio che trova Utenti nei più di- 


PROGRAMMI SU DISCO 

PER CBM-64 

Pn-i’/fl al pubblica 
(IVA tìfluu) 

GESTIONI 7 AGENTI R APPEt, ESENT ANI L 

29 <m 

GESTIONE AMMOK1 AMENTI MUTUI 

29.000 

GESTIONE ANAGRAFICHE 

39.000 

GESTIONE SCADENZE POLIZZE 

75,000 

TOTOCALCIO 

23.000 

GESTIONE BILANCIO FAMILIARE 

21000 

GESTIONE CONDOMINIO 

189.000 


PIEMONTE 

aLBPRTIN i.n.£ 

Via SEnscklfa. 6<i 
KJI47 TORINO 

SQFTEC COMPUTER 5 r.I 
C.' so S Maurizio. 74 
IQJ24 TORINO 

teknocomputeìrs 

Ve a Madama Cri&tina, 3k/C. 
10125 TORINO 

HOBBY SOLJM) 

Corso Traiano 2#/H 
101J5 TORINO 

ROSSI MARCO E FIGLI 
C.ao Nizza, 16 

12100 CUNEO 

LJGL RI A 

MARISA SECALO 
Via Carducci, 53-8 
16321 GENOVA 

RAPFR.EL di A TERSO 
Via Boifio Ratti. I5/I/K 
Ì6É32 GENOVA 

VI.DEON di BORE A 
Vìa Armenia, 35 Cancello 
16129 GENOVA 

MASSA AGOSTINO srl. 
Via Camolini, 17/R 
I6I5S GENOVA VOI TRI 

DIGIT CENTCA ì.ilc 
V ia Asse reto, 78 
16036 RECCO 

S A S.A, COM $,p A 
Via Arsine- Sin un ni. 82 
1S100 IMPERIA 

FXTRON S,!U. 

Via Lunigiana. 602 
10100 LA SPk/ÌA 

LOMBARDIA 

AL RISPARMIO 
eli CASTOLDI 
V,k Murt/a, 2C*4 
20126 MILANO 

ARI E 
P li Cadorna, U 
20123 MILANO 


F.L.U BONAZZ[, Si I 
Via P. Serpi, ] \ 

>0154 MILANO 

BUSO. MI 5 iif, 

C.so Magenta . 27 
2012.1 MILANO 

BROLETTO GAS 
di M. LUOSJ 
Vìa tiruJkj LKi , 45 
2(1121 MILANO 

C-G.D. 

Coniiorzk* GrotHisii 
Dolici iwi lì 
P za De Arigli. 3 
2(1146 MILANO 

GIGLIONI LAI RA 
Via d'Oviiliu, K 
20131 MILANO 

GIGLIONI S.r.1, 

N i,i SEureu. 45 
20131 MILANO 

MAhCCCCl S.p.À. 

V la E- Ili Bronzem, 37 
20129 MILANO 

WORK SYSTEM 
di M. AMORE 
V u Tonno, 18 
20052 CASSANO 
D’ADDA 1 MI j 

FVNMWm; 

Via Verdi, 28/30 
20011 CORBI TTA . MI > 

M ARIANI 11 COI, A GROSSI 
V.ic Bnanza, 23 
2(J0ift MEDA (MI) 

M H.M. INFORMATICA 
SYSTEMS 
C.so Roma. 112 
mi 5 LODI (MI) 

SENNA GIANFRANCO 
* C. s.n.c. 

3 ia Calchi, 5 
271 no PAVIA 

CA.R.T, di TORRI & 
PROSDQCIMJ 
Vìa SapoltMa. fefft 
22100 COMO 


FERRERÒ SERGIO 

Via Mameli, 22 

21Ù52 BUSTO ARSl/iO (VA) 

I tLL l IROMC 3 

di C ANAl 1 GIORGIO fine 

Vìa Speroni, N 

22Hio varese 

S.n.t diSERVIDAll 

V. COME. 

Via IV Novembre, 56/5 R 

26013 CREMA 

PRISMA S.n.c. 

Via Chislieri, 15 

mm CREMONA 

TECNICA ELIOGRAFICA 
CON I ABILI. 

Gat3. (iormi 

CASAL MAGGIORI' iCK) 
f A SA DI LLTÌLFTTtUaTÀ 

-negozio explrt t 

C.iu Urnheito 5 6'2 
46100 MANTOVA 

Hi-Fi TE M POR IN 
[ .so Genova, 1 12 
27029 VIGEVANO (MI) 

BOLZONI RENATO 

V le SEcivio. 3 fi 

23117 MOR SEGNO (SOj 

VENUTO 

AREM sì.it. s, di POLI £ C- 
l .so Cavour, 35 
37100 VERONA 

CLM DUE fi.u.s. 
di E, Il E DOLI A. C- 
% la Locateli], 19 
37100 \ EROSA 

fabbri Raffaello 

Via Sitila, F 
37321 VERONA 

NOVA SYSTEM s i.J. 

Via Disciplina^ 9 
37036 S. MARTINO 

a. a. (Mi) 

DA 3 COM s r I 
DAI ZOVÌ UNO 
Via Napoli, 5 
36100 VICENZA 


IMPARIAMO IL BASIC 

39.000 

GESTIONE STAMPA FATTURE 

34.000 

CENTO PROGRAMMI PER CBM 64 (didattico) 

49.000 

GESTIONE FIDO CLIENTI 

29.000 

GESTIONE CONTO CORRENTE 

23.000 

GESTIONE CONTI C F G. 

29,000 

GESTIONE APPUNTAMENTI 

23.000 

GESTIONE ORDINI 

75.000 

GESTIONE PORTAFOGLIO CLl/FOR 

49.000 

Elotrovi 


ZUCCA TU s.r.l 
L'.ìo Palladstì. .-S 
36100 VICI A Z A 

MARANGONI GIUSEPPI tf. 
Via Marconi & 

36015 SC E 110 h; V ] 1 

CRON5T UMBERTO 
Via G. Galilei. 25 
38)00 IREMO 

COI EGA SAVOIA 
Via J urlameli. 4S 
ROVI KILT O (TNi 

PROCE LI.| K. 

Via. F.lta Bronzetti, 29 
38033 CAVALESE (TNi 

COMPÌ ITER KOIN È 
V'iH PlO^L-fLC, 37 
351 W PADOVA 

CAT-.RT yr.L 
Via Anelerà, 13 
35100 PADOVA 

SIC L I ALIA 
Via Pillilo, 23 
3 SU» PADOVA 

MARC YTO GIANFRANCO 
Via Madonna D Salute, 51/53 
55129 MORTISL (PDi 

RADIO TARCISIO 

f ! hi Milinrr, 77 

?51«) PADOVA 

C \PLTO K 
Via S. Marco, 51/93 
30100 VENEZIA 

GHFOGIN 

HI FTTROPn MESTICI *.rl 

Vta Mirimele, 2 83 

30030 CHIRIGNAGO (VE) 

E. Ili GIROTTO s.a.5. 

V'u Ospedale Provinciale, 25 
SAN ARIEMUXTVì 

IR PS s.p.s. 

Via Datile 

31040 CES SALTO (TV) 

TA LAMINI LIVIO c C, ilf, 

V iE) Garibaldi, 2 

31029 VITI. VLNLTO (TV) 


FRHJJ.I VENEZIA GIULIA 

CATELLI FRANCO 
V TU KK Settembre, 7 
>3170 PORDLNOSF 

TREVI SAN s.itc. 

P in Duomi), 3 
33100 UDINE 

AUDIO MAI RiX ws. 
il] ZENI 

Via Marconi, 24 
34133 TRIESTE 

FORNIR AD 
di CAS ANELLI S.d.f- 
V'ia Cofeojinia, IU/D 
54)26 3 RI LISTE 

EMILIA ROMAGNA 

PECCHIONI Prof 
ARTURO i-a..*. 

V. le Oriana, I 
40337 BOLOGNA 

UR1GHKNT] E III sii c 
Via Riva Reno, 6 

4oi22 Bologna 

COMPUTER SHOP 
di RONCHI TONINO 
Vii Emilia, 199/R 
40026 IMOLA (BOI 

MICIO JlNFOR MAI ICS 
P ssn 6e'i Manin. 31 
4| w SASSUOLO (MO) 

g.a.l-.r. 

Via De E^isLs, 7 
421(30 RFOOIO EMILIA 

E.A.M, computer Si n e. 
Via ( . Ballati, 17 
42048 RUBI ERA (RR) 

F'ON COLINI FELICE 
C Fr s.d.r. 

Via Civqucl, 32 
43(136 FIDENZA (FR) 

ovani i.tno 

Via MejSariaKKi, J0 
44022 C OMACCI! IO (FE) 

ELECTRA s.t.ì. 

Via Copernico 
47ÌQO FORLÌ 


MARCO POLO s.n.c. 

Y'.te Rama, )7 I 
47300 FORI 1 

CHIARI VITTORIO 
Via Salii. 49 
47037 RI MINI (Fu) 

CIO. VE. 

Y'D Polts i n ^ . 353 
47023 CESENA 

OTTICA ARt'T RI 

(E, ROM MARIO e C. s.n c. 

Via RrenU. 4 

4703ti RICCIONE (FOÌ 

TOSCA SA 

ACOUSTJC HDF1 ITY 
di beageoi n 

Via Pisarm, 161 
50143 FIRENZI 

RADIO TRaDE 
CFNTt'R ì.f.l 

F 7J3 della Cervia. ?2 

55100 LUCCA 

HENfcTTI 3VD 

V.'a Narldnak-, 45 

544119 TE RR ARO SS A (MS) 

PUCCINI SILVANO 
Via Cammeo. 64 
5610U PISA 

R.B.F. ELETTRONICA s.ft.c, 
Rarefi della Victofij. 18 
51017 PESCI A l PI- 
Ù-HIT ROSICA 
A LESSI PAOLO 
Vv-l (Amatoti, '■ 
i^oas PIOMBINO (Otti 

UMBRIA 

M-I.E. di TEMPERINI 
ELLTT. s-.n.L - . 

Via XX Sericm-hre, 76 
06300 PERUGIA 


MARCHE 

ELETTROCASA di PÌEKON3 
V.Ie Mituroiti, 64 
(1VITANOVA 
M ARCHE (MC) 



ani della Sirius Elettronica, 

ve proprio a tutto. 

versi settori delle attività produttive: dal zionaii. E in italiano. 

dentista all'albergo, dal negozio al teatro. E Tutto questo per valorizzare sempre di 


molti altri ancora. 

Programmi semplici da usare, chiarì. 

era- 

più Commodore 64. 


GESTIONE LIBRERIE F BIBLIOTECHE 

2*7000 

MAGAZZINO 1 IVI 1 ORAZIONI- 

189. fJOO 

CASH COMPUTER RISTORANTI 

89.000 

GESTIONE STUDI MEDICI 

49,000 

MAILING LIST 

. - .1 m:iu 

DUPLICATORE ARCHIVI 

23.QOO 

WORD PROCESSOR 

75.000 

SINTETIZZATORE MUSICALE 

29.000 

WORD ON MAIL 

mim 

DATA base 

39.000 

CONTABILITÀ FATTURE C7T 

49,000 

RUBRICA TELEFONICA 

23-000 

GESTIONE ALBERGHI 

139.000 

EXPERT SYSTEM GIOCO DIDATTICO 

23000 

Cash £OM POTER PARRUCCHIERI 

49.000 



CASH COMPUTER GOMMISTI 

49.000 




ovunque. 


LA RÙ FF di Rpfn, 
Conce. UX’ 
CORR1DOMA (Mf ! 

AUDIO SÈfOP 
Va ArtuflLflj, b® 

A SCOLI PICENO 

AULÌ I 1 E (TRONI < A 
Via Turati 

PORTO D VSCOll IAPi 

DISCO c E U» 

Vu X U Aprile 
PERVIO 1 Ah 

DAVI I LI- I TRONIC 
Via Forme ntim. 56 
S BENEDETTO DEL 
TRONTO i \Pi 

PASSJ Hi’ Fi 
Via Galvani, 43 
63023 E' E HMO (APi 

STEREO S0i-Ni> 

Vu Manna 

CAMPOHLUNL <AI>1 

PELLEGRINI MAI Rt> 
StruD Sul-ile Mlrtilioi 
MÀK/OCCA I>3 
5ENIOALLTA iASf 

Lazio 

Carli srL 

L g,n Hrlbitr, 4 

Roma 

CIARLANTI!^ * r I 

Vii TorPt vecchia. 350 
00368 ROMA 

DISCOTECA FRAT I INA 
Via E'raUin.v, 50 
001117 ROMA 

ELETTROFOKER 
di OLIVI MAREO 
Via Voltufflc, 4G/AB 
OOL&S ROVI \ 

FOTO FORNITI RI- 
m HI RNARDIS 
E* 74 (’snvelkriii. 63 
001*6 ROM A 

INTERPIIOTO s rl 

V ii Allattano li. 4j£/+4*0 
00165 ROMA 


30- M uia s 
VIDI O COMPLICI R li 

Vu iguana, Vecchia, 9 / 10 

ÙDIHfc ROM A 

LEONARDO srl 
Vu Chofim, 29 
00144 ROMA 

ME TRO IMPORT 

\ Donatella. 37 

00I*A6 ROM \ 

radio nove li t 

Y le PrenestriHd. 34 
0(1176 ROMA 

RAPPRESENTANZE 
FOTO TE £ NIClli: 

Vu OunU, 24 

IXjlOf ROMA 

K P.M di MANCINI 
Via Cintila, LJ? * 142 /a ■ U3 
00186 ROMA 

IONIE ( em ECHI tome \ 
RADIO Es- 
porta C a . valle Egc ri, 15/ 1 
00165 ROMA 

VIDEO SUONO 
di P HO RE LI A 
Vu Lì ramici, IO 
0048 M TIGNO 4 Roma i 

PALOMBO ANTONIO 
EOUI HE HI-FI 
C.M) Repubblica, PW/205 
04 100 1 MINA 

TOCCHIM TERESA 
L.fji-p Marconi. 14/ 16 

04011 APRILI A LI 

V.V V IDEO SOUND n c. 
Vu M unte# lappa, M 
GAFFA fi il 

ABRUZZO E MOI ISI 

L LU COCOCETTA 
Vu S.illu/AN 9 1 
L'AQUILA 

ASPRI IN 

Via Anici 1 ita,' 10 

AV E ZZANO !AQI 


VITTORIA NICOLA « C. $a$ 
Via Pm.sta 3 1 Caledunu, 45 
Si 3 MONA f AQ> 

STRI VINICIO 

Vu N.i/afp<j Sauro, >-i!' 

GII ] I ANOVA ìTF i 

Al CINI DOMI Nft O 
Vie Neonate 
ROSE IO DLGl l 

abri m n i 

F.Lfc t TRONIC A FÉ RAMO 
P /,i Vi a rii r: Pennesi 
TERAMO 

FAGMA E LETT RUNICA 

V le Regina Margherita, ~4 

PESC AK A 

STI FANO NICOLA 
\ ... M.iLiufirta dell Aml-n 

vasto (CHj 

PL I ROSE MOLO AMLETO 
P v j 1*1 cl? i tc ilo. 40 

LANC IANO (Citi 

SISTEMA ì r i 
V 1. 1 Monsignor Hdlagrii 

CAMPO» ASSO 
E LLI SCftA&ClA 

C ani Cmtwnn I 
IE R MOLI (CB| 

PI OLIA 

arile 

Vu I .inciti. 106/2-4 
BARI 

INSTA PI ADA BAGN ARDI 
Via. Cardassi, 10/12 

BARI 

DI: £ I- SA IO GIU VANNI 
P .m Mia// ini, 7/30 

assi KMlNO |RA) 

Mi N di serro LO 
v i.ibini, 34 
HtKlMO (B A) 

BlSt EGL3A Cat DONATO 
Carso liuti nube, 235 
S MARCO IN 1 A M 15 iFGi 

MAR ANGI NICCOLI 
GRAZIA 

V i,i A Cagni. 27 
I5R I NDISI 


RUGGERO Viro 
Via A fardelli, 75 
S. VITO DEI 
NORMANNI flIRl 

£ AVALLO \NTOMO 
-NFGOZIO Y\Y\ KT" 

V u Anfiteatro, 2S/30 
74 MIO FAR ANTO 

CTSHJ J: MA RAI. UNO 
MIO II- LE 
C io Rama, 199 
vt A SS A FRA i 1 FRANTOI 

CAMF.Ldi CAM SS A 

VINCENZO 

Vi* MarùnauL 1/3 

LECCE 

MOKI [ANO F- VHlO 
Vu M adorni» del Pane, 9 
NOVO LI (LECCHI 

( impania 

AGNETl I AGNLTOlu.c 
V u £. ani itisi PorZiG, 7q/g? 
NAPOLI 

ni HIASE SALVATORE 
e Pigli i.n c, 

Via Lan/icri, 15/25 

NAPOLI 

i i li m PII I RÒ S p A 

P /ii Mercato.!, 183 

napoli 

ni u ori n a 
Galleria L rubertou 1, 55 
NAPOLI 

LI XOR RADIO 

ti aberra Umberto I, 51/54 

NAPOLI 

I \ I I T TTRONICA di 
V.-UTTMASO 1 RANCE SCO 
Vu Rnma, gl 
t rcClANO I.NA] 

DE L I A FRONTI GAETANO 
l m Vittorio ^ marni* le, 14ù 
AVELLINO 

I L IP FLOP j.r.L 
Via Appi», 68 

VGRIPALDA avi LLINOi 


c.RANDl MAGAZZINI 
PICCIOTTI 

Via Madonna >.h l Mima, 13 

SALERNO 

I 'i LABBIA 

ANDRLÓNI DI C ALABRÓ 
FRANCESCO 
V r u Cairolì, 11 
RL.GGIO CAL \BR1A 

POLINESi ANNAROSA 

Vu Nazi«in4k 

ARCANI DI REGGIO 
( M.ARR3A 

l LLI GUALTIERI 
C to .Mj/vint. 15“ 
t OS ENZA 

GIORDANO GIOVANNI 
P.ifi della Propinili, 4 
COSENZA 

AUDIO UDÌ I ITY SHOP 

di SQUILLAI E 
V|4 Spiiian. 14 
t ATAN/ARO 

GRANDINE! TI RINALDO 
Via Buecaie Eli, ,J 
t ATAN/ARO 


SICILIA 

CFC s r l 

S u Netta rSanuló, 2/R 
PALERMO 

E.C F. Sp A, 

\'u L. d4 V inci, 238 
E'ALERMO 

MIGLIORE S r A 
Vu Cottali bro. 43 
PALERMO 

PEDONI S p A. 

V lt SiratburKU, 26 
PALERMO 

I RAFANI SALVATORE- 
VL,i Roma, 471 
PALERMO 

OTTICA LO VULLO 
Vu Atencii. : 7 
AGREGI N IO 

PI (ORILI \ IGINIO 

V ra Atene». 24 
AGRIGENTO 

SC AR PITTA ANTONINO 
I 3 za Notai, 6 
■ RAPA NI 

I ERRAI'] O s rl. 
l'.ttì Uni bcrtu, 233 
t ULTA M SVETTA 


sirius 

Ekettronica 


VtiLANOflORl (ASSAGGI Patiz/o f 2 5'ptinc Tel 824&321 



CERCASI 


La redazione di Commodore Computer Club vuole potenziarsi e 
ricerca collaboratori part-time e insegnanti di discipline scientifi- 
che e tecniche preferibilmente residenti nell’area di Milano 


Ai collaboratori che stiamo ricercando verrà richiesto di collabo- 
rare alle vane iniziative della casa editrice con articoli, libri, rac- 
colte di programmi e l’italianizzazione di software, di cui abbia- 
mo i diritti d’autore, orientati alia didattica per le scuole medie e 
superiori. 

I prescelti, pertanto dovranno possedere un sistema completo 
di Vie 20 oppure Commodore 64 e sapere programmare sia in 
basic che in linguaggio macchina. La conoscenza dell’inglese e 
di altri personal computer è un titolo preferenziale. 


Compensi 

Tutti i lavori svolti su incarico della redazione verranno sempre 
compensati in base ai miglior standard di mercato. 


Primo contatto 

Per incontrarci telefonate allo 02/8467348 chiedendo della si 
gnorina Piera 
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COMPUTER 
QUESTO MESE 
F ANCHE QUESTO 



Un vero flight simulator 
Boeing 747 in CP/M 2.2 e una sfida 
per riportarlo sul tuo personal 





AREA BASIC 


FUNZIONE 


N. DI BYTE 


Link linea Basic successiva 
Numerazione linea 


Istruzioni Basic 


Codice termine linea (0) 


ULTIMO 


ULTIMI TRE Codice termine programma (0,0.0) 


BASIC 


TAVOLA DEGLI INDIRIZZI 
PEEK(X)+PEEK (X+1)*256 


VARUUMLE PflllOBVT 

INTERA 

CODICE ASC 

DEdMALF 

CODICE AS : 

arwNQA 

CODICE A& 



/ " 

f 

■ 

(Ir W 

b 

\ 

/ 


A- H 

r X 

43 44 Inizio Basic 1 

« 

BJ 

45 46 Inizio variabili j: 

E 

47 48 inizio matrici 

D 

i 

r 

49 50 Fine matrici |; 

E 51 52 inizio stringhe 

■ F 

53 54 Fine stringhe 

~G 

55 56 Fine mem. RAM 

f 


I 1 “ — • - ■ — -f ** 




S: V 

0 

L 

K 

iiacmvETn» 







/ 


r 

L 

p 

|p ■ 

AREA VARIABILI i 

^(7 BYTE PER C1ASCUNA) J 

y BYTE* FUKZICNe 

2 

NQME VARIABILE 

VALORE 

INTERO 

3*4 

VALORE INTERO 7 

1J 

VALORE 

DE CAULE 

3-7 

VALORE OEOMALE 

bMw» 

3 « 

NUMERO CAAATTm ) 

. STtUMÌA 

J* 
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precedenza. 

In tal caso, a patto di avere amici servi- 
zievoli, consigliamo di agire in lai modo: 
a / Farsi prestare un drive 1541 oppure un 
registratore correttamente allineato, 
hf Caricare, ad uno ad uno, i nastri scritti 
col vecchio registratone, 
c/ Registrarli sul dischetto o sull’altro re- 
gistratore (quello ll buono’\ per 
intenderci), 

dì Allineare la testina ricorrendo ad un 
laboratorio specializzato, 
e/ Riversare da disco i programmi prece- 
dentemente regisiratfr. 



File relative su cassetta? 

O Ho letto Particelo sui File relativi pub- 
blicato sul N. 13. Dato che non posseggo il 
drive 1541 ma solo il registratore a casset- 
te» è possibile realizzare un (Ile relative su 
nastro? 

♦ Assolutamente no. Il problema di un 
File relativo può essere risolto unica- 
mente con la tecnologia dei drive. 



Quanti GGSUB? 

□ Quante nidlBcazioni dì GOTO e di 
GOSUB posso utilizzare? 

• Di GOTO ne puoi utilizzare quanti ne 
vuoi. Per i GOSUB, invece della rispo- 
sta, riportiamo un mìcroprogramma uti- 


le per sapere, con qualsiasi computer, 
quante istruzioni GOSUB è possibile 
realizzare: 

1001=1+1: PRESITI: GOSUB 100 

Il messaggio di errore finale, che com- 
pare con tale programma, può essere il- 
luminante per coloro che, pur disponen- 
do di grandi quantità di memoria, impaz- 
ziscono nel rintracciar? l’errore. Il mes- 
saggio di OUTOF MEMORY ERROR, 
infatti, compare non solo quando i pro- 
grammi sono troppo lunghi oppure di- 
mensionando matrici enormi, ma anche 
se, per errore, una sub routine ritorna 
continuamente su,,, se stessa. 



Àutorep eat 

□ In che modo è possìbile estendere 
Fautore pe a t a tutti i tasti? 

• Uauto-repeal è quella particolare fun- 
zione che consente, tenendo premuto un 
tasto, di ripetere la sua funzione fino al 
rilascio del tasto stesso. Non appena si 
accende il computer, tale funzione è atti- 
va solo per alcuni tasti: quelli di cursore e 
la barra spaziatrice. Per estendere a tutti 
ì tasti Fauto-repeari battere il seguente 
comando, sia per il Vie 20 che per il 
Commodore 64: 

PO KE 650,128 

Un’altra locazione (la 651) riguarda la 
funzione in oggetto. In essa è contenuto 
il tempo che trascorre tra la pressione del 
tasto e l'inizio della ripetizione del carat- 
tere battuto. Con; 

POKE 651,1 

la funzione verrà eseguita, praticamente» 


all’ istante* Per aumentare il ritardo in- 
crementare il valore de IF argomento fino 
a 255, Con: 

POKE 65 1,255 

infatti, passano diversi secondi prima che 
il carattere venga ripetuto (a patto, ov- 
viamente, di tener premuto il tasto). 



Se compare 

“LOADING ERROR” 

□ E T possibile recuperare un programma 
da nastro se, dopo molti tentativi, compa- 
re sempre i) messaggio di errore di 
caricamento? 

• Tali inconvenienti capitano, in genere, 
quando si trascura di verificare un pro- 
gramma dopo averlo registrato, I lettori 
dovrebbero sapere (Commodore Com- 
puter Club N. 12) che un programma 
viene registrato automaticamente, dal 
computer, due volte; e di ciò non ce ne 
accorgiamo. 

In fase di lettura ti calcolo legge (e 
trascrive in memoria RAM) il primo dei 
due. Effettuata tale operazione, si limita 
a leggere il secondo e a confrontarlo con 
cièche ha già registrato in memoria. Se i! 
secondo listato è perfettamente identico 
al primo viene emesso il messaggio 
READY, Se, al contrario, anche un solo 
byte è diverso, Fopcrazionc di carica- 
mento viene interrotta e viene emesso il 
messaggio LOADING ERROR. 

In pratica „ però, i casi che si possono 
presentare sono due: 
a / Ai tempi della registrazione, il primo 
programma è stato registrato erronea- 


Compu ter Cfab - n 
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mente e il secondo correttamente. Puf- 
troppo non c’è nulla da fare, 
b / Il primo programma è 1 giusto” ed il 
secondo errato. In tali casi, purtroppo, il 
computer non sa distinguere quello buo- 
no da quello cattivo e si limita ad inter- 
rompere la procedura. 

E possibile, in questo caso, recupera- 
re il programma. Quando appare il mes- 
saggio di errore eseguite SENZA ricor- 
rere a cicli POR, . . N EXT c senza tentare 
di effettuare il LIST: 

PQKE43 S PEEK(829) 

POKE44,PEEK(830) 

FOKE 4S t PEEK(831) 
POKE46,FOKE(S32) 

CLR: RFSTGRE 

A questo punto chiedete il listato 
(LIST), Se il programma viene visualiz- 
zato fino all'ultima riga, siete fortunati: 
siete nel secondo caso esaminato! Regi- 
strate immediatamente e verificate’!! 

In caso contrario le ultime righe (e a 
volte molte altre) saranno piene di sim- 
boli strani e istruzioni indecifrabili. Non 
c’è nulla da fare: condoglianze! 



Usiamo la user pori 

□ Mi interesserebbe conoscere un circui- 
to elettronico in grado di pilotare relè efo 
motorini elettrici* Sono interessato anche 
a circuiti che consentano al computer di 
esaminare segnali digitali o analogici. 

• vSul numero 3 della rivista COMMO- 
DORE è descritto in dettaglio uno di tali 
circuiti come pure il suo circuito stampa' 
to allo scopo di facilitarne la 


realizzazione. 



Sprites 

I J Ho effettuato programmi che utilizza- 
no più sprites» ma solo il primo di essi 
viene riprodotto con precisione* Come 
mai? 

• Purtroppo la domanda è un po' vaga 
dato che non hai inviato ii listato che 
presenta il problema. E’ più che possibi- 
le. comunque, che Findirizzo di partenza 
dei 63 byte che riguardano ciascuno apri- 
te sia stato calcolato in modo errato. Ti 
consigliamo di consultare qualche testo 
che tratti l'argomento in modo appro- 
fondito oppure di studiare il listato pub- 
blicato sul n. 3 della nostra rivista. 



Archivi professionali 

□ Lavoro in una farmacia e vorrei che 
pubblichiate un programma di gestione 
magazzino, trasformabile per tutto le at- 
tività. 

• La nostra rivista non pubblica pro- 
grammi su commissione ma sì limita a 
sviluppare listati che possano interessa- 
re, come è ovvio, la stragrande maggio- 
ranza dei lettori. Un programma di ge- 
stione magazzino può interessare fino ad 
un certo punto dato che ogni utilizzatore 
ha le proprie esigenze per ciò che riguar- 


da numero di articoli, giacenze, modifi- 
che, numero di informazioni da associare 
a ciascun prodotto, numero dì fornitori 
eccetera, 

Un programma 'generale” sarebbe 
inadeguato e, paradossalmente, per ac- 
contentare "tutti” non accontentereb- 
be,., nessuno. Se qualche lettore ritiene 
però di aver sviluppato un programma 
interessante, ce lo faccia sapere. Ricor- 
date che i lettori sono gii autori; privile- 
giati delle nostre pEigine, 



Errori ed orrori 

fi Battendo alcuni listati della vostra rivi- 
sta, il computer mi segnala alcuni errori, 
Come mai? 

• La domanda è un po* stringata per 
rispondere, non ti pare? Se vuoi essere 
aiutato devi comunicarci: 
àt II nome del programma cd il numero 
della rivista su cui è stato pubblicato. 
b} L'esatto messaggio di errore che ti 
segnala il computer, compreso il numero 
di linea in cui è stato riscontrato. 

Se non comunichi almeno queste due 
informazioni ci è assolutamente impossi- 
bile rispondere! 

A* De Sì mone 
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scegli 2 cartridges Commodore 


per il tuo VIC-20 o CBM 

LIRE + IVA 
CADUNA 




a sole 1 8.750 


...e risparmi subito 50.000 lire! 


Segna sul modulo d'adesione i codici delle 2 cartridges che preferisci (più 1 di riserva) tra quelle qui 
di seguito elencate: questa é un’occasione irripetibile per aderire aN'APCO assicurandoti cosi, finché 
vorrai, tutti i suoi vantaggi esclusivi! La presente offerta é riservata esclusivamente a nuovi associati. 


CARTRIDGES PER VIC-20 

Càrice 1901 AVENGEfl 

La tua asl ro-nave d fende egeamente la Terra dall'assalto degli invasori spaziali 

Corico 1905 COSMI C CHUNGHER 

Una missione spaliate a bardo dei tua Grundw, opzioni e vari -riveli di difficoltà 

CùdkJÉ 1907 J URI TER LAINDER 

Solo tatua abitfàpuò far atterrare làstrgnàvg nei crateri di an peri calo so pianeta. 
Codice T910 RAT RACE 

Guida ti tuo topolino tramste II radar alla ricerca dei formaggi evitando le insidie. 

Codice 1912 MOLE ATTACK 

Sei uf\ agjicoitore e devi colpire eoe urrà mazza le talpe apoena escono *11 buchi. 

Codice 1913 RIDE OH FORT KNOX 

Una pericolosa avventura nei labirinti e corridoi di Fort Knox. alla ricerca deH'oro 

Codice 1914 ADVENTURE LAND 

Devi andare alla ricerca dei 1-3 tesori nadCCSli portandoli al Sicuro tra milte irsidie 

Codice 1915 PIPATE COVE 

Per gli amanti del rischio un appassionante avventura nd misterioso covo <5ó pirati. 

Codice 1916 VOODOO GASILE 

Ltn classico del l'avventura che nel! ant co castello metterà alia prova la tua abbila 

Codice 1919 S ARGON CHESS II 

Sfida il computar nel gioco degli scacchi puoi scegliere ira 7 livelli di difficolta 

GRATIS IL NOTIZIARIO ARCO NEWS” 

Riceverai gratis periodicamente il notiziario illustrato "Apco News." 
Potrai cosi scegliere i videogiochi che vorrai tra quelli presentati. 
Saranno sempre i giochi più attuali, su cassetta o su cartuccia, quelli 
di cui tutti parlano e che si trovano in teste nelle classifiche di vendi - 
ta d Europe o d'America, Inoltre APCO li segnalerà periodicamente 
il videogioco migliore, in offerta speciale, che. solo se tu lo vorrai, 
riceverai automaticamente a casa tua. ad un prezzo particola mente 
vantaggioso, serata neppure dovario ordinare. 

SulT-Apco News- troverai inoltre tantissime offerte speciali: libri. Uti- 
lities, periferiche, accessori, per arricchire sempre più il tuo sistema 
e le tue conoscenze. T ulti 1 prodotti offerti sono selezionati fra i mi- 
gliori produttori e garantiti totalmente. 


GARANZIA 

1 1 Guaiti è I videog igcIii proposti sono scolli dal Conflato deli' ARCO ira 1 
migliar: litoti pubblicati in Europa 0 negli USA Ove presentassero -duetti 
di faDbncez(emo saranno sostituiti immcCiatamenta. Anche gir altri prodot- 
ti offerti, lutti stri azionati ss imi. saranno assistiti da opportuna garanzia. 

2HI software piu prestigioso a prezzi esclusivi* L'APCO proporrà video- 
gLOchi e Utilities dolse più prestigiose sol tivare-hou.se spesso ;n antepri- 
ma J prezzi riseivalj agli associati saranno' dr almeno il 2G L „ micron ai 
normali prezzi di mercato 

3 1 M mirro impegno L'associato avrà soltanto I impegno di Ordinare arree 
no ira cartucce, 0 cassette, di videogiocdi durante h primo anno di ade- 
sione scegliendole Ira q-uelie pubblicale sull Apco News 

4i APCO si riserva di accollare la presente domanda dr adesione 


Spedire il presente modulo, o una fotocopia, in busta chiusa 

a: APCO s.r.l. - Casella Postale 239 - 10015 IVREA (TO) 


Codice 1923 OMEGA RACE 

Sei un guerriero di Omega e devi difenderli dall'invasione' di Androidi muniti di laser. 
Codice 1924 GOHF 

Distruggi l'esercito Gorfien che avanza in Quattro ondate: dai droidi all'astronave. 

CARTRIDGES PER COMMODORE-64 

Codice 6401 VISIBILE. SOLAR SYSTEM 

A borda di unàijtronave viaggi per milioni dr miglia alla scoperta del sistema solane 

Codice 6402 LAZAflIAN 

Uno degli ullim: giochi creati dalla Commodore per il tuo CBM 64. 

Codice 6403 CLQWNS 

Classico gioco da arcade. Fai sanare il c'own sull'altalena per colpire i paltoni, 

Codice 64Q4 Music COmpOSER 

Una cartuccia indispensabile soprattutto agli appassionati di musica. 

Codice 640$ ÙUPITER LAND Eh 

Devi lare atteri are abilmente la iua navicella spaziale in una delle 3 bas; di Giove. 

Codice 6406 LE MANS 

A bordo del tuo CBM -64 sfiderai tutti i campioni nenia leggendaria cotsa a te Mare 
Codice 6407 OMEGA RACE 

Sei un guerriera di Omega □ devi difenderti da:ì invasione di Androidi muniti d laser. 
Codice 6400 SEA WOLF 

Un vecchio lupo di mare ti Chiède di affondare ocn 4 torpedini tutte le navr nemiche. 

FORTI SCONTI 

Solo APCO ti propone F victeogiochi piu interessanti facendoti rispar- 
miare anche oltre il 20% rispètto ai normali prezzi di mercato. 

Ma anch-e suite altre numerose proposte, dai libri alle periteriche 
agli accessori, potrai realizzare risparmi dal 20% al 35% Cip é pos- 
sibile poiché APCO importa, 0 acquista, direttamente dai produttori 
in adeguati quantitativi tutti i prodotti che ti offre, senza intermedia- 
ri e senza spese di distribuzione, 

IL MASSIMO PROFITTO CON IL MINIMO IMPEGNO 

Ordinerai quello che vorrai per trarre il massimo profitto dalle pro- 
poste APCO- L'unico tuo minimo impegno sarà di ordinare anche so- 
lo altre tre cartucce, o cassette, nel primo anno di adesione all 'APCO, 

a prezzi sempre esclusivi, e basta! 

>s 

cc 14 

Si! desidero aderire all'APCO per assicurarmi tutti i suoi 
vantaggi esclusivi c ricevere due cartridges Commodore per 
il mio □ VJC-20 □ CBM -64 tra quelle che qui indico in or- 
dine di preferenza: 

cod, cod. cod 

Pagherò soltanto al ricevimento delia merce l'importo com- 
plessivo. IVA inclusa, di Lire 44.250 (oltre a Lire 3.750 per 
contributo spese imballo e spedizione) 


Nome 

Via . 

CAP 


Città. 


data ... 


firma 



l, firma del genitore in casa II richiedente abbia mano efi 16 anni) 


MODULO DI ADESIONE E D! RISPARMIO 






COMMODORE 64 


S OLroi in 

Alta Risoluzione 




coro principale di questo articolo è 
quello di continuare il discorso sulla gra- 
fica ad alta risoluzione del Commodore 
64, argomento questo che ha ricevuto una 
notevole spinta per merito delle routine* 
grafiche di Danilo Toma pubblicate sul 
numero 10 dì Commodore Computer 

Club* 

Il programma qui presentato utilizza 
appunto queste eccellenti routines e pro- 
babilmente sarà solo il primo (e non il 
migliore) di una lunga serie. 

L’argomento del programma non è 
nulla di nuovo: disegnare figure geome- 
triche solide che appaiono effettivamente 
in rilievo sullo schermo del vostro C 64. 

p 

M. rogrammi del genere sono già stati 
implementati, in diverse forme, su altri 
personal computer, ed il (rocchetto per 
far apparire le figure in rilievo è Formai 
già sperimentata ombreggiatura. D com- 
puter cioè si preoccupa di fornire la giu- 
sta ombra ad ogni singola linea o punto 
che traccia. 

Teoricamente, quindi, non esistono 
problemi alla realizzazione di questo pro- 
gramma: basta disporre delle opportune 
espressioni trigonometriche, disegnare 
un punto nero a fianco di ogni punto bian- 
co ed il gioco è fatto! Se qualcuno di voi 
pero ha già provato ad usare la grafica ad 
alta risoluzione del Commodore 64, saprà 
che è permesso accostare non più di due 
punti colorati diversamente. 

P 

X er il programma in questione invece è 
necessario disporre di almeno tre colori: 
il colore di sfondo, il colore del disegno e il 
colore della ombreggia tura. E f impossibi- 


le Far corrispondere il colore di ombreg- 
giatura a quello di sfondo perchè il risul- 
tato non sarebbe certo un solido in rilie- 
vo, ma una stranissima forma, perdi più 
piatta. Se invece si prova ad utilizzare tre 
di versi colori, il risultato sarà ancora peg- 
giore: i bordi della figura infatti risulte- 
ranno costituiti da «grossi» rettangoli, 
delle dimensioni di un carattere, unifor- 
memente colorati. Il risultato quindi sa- 
rebbe ancora una volta pessimo, 

on appena però, la soluzione esiste, e 
sicuramente a questo punto qualcuno dì 
voi ci avrà già pensato. E’ sufficiente in- 
fatti usare due soli colori, uno per 0 dise- 
gno ed uno per l’ombra, ed utilizzare poi 
questi due colori accostati per creare lo 
sfondo. 

1^ roprio questa è la soluzione adottata. 
L’unica subroutine di questo programma 
infatti ha il compito di creare una finissi- 
ma scacchiera, costituita da puntini bian- 
chi e neri, che andrà a ricoprire lo sfondo 
dei disegno. In questo modo il disegno 
risulterà bianco con ombre nere su sfon- 
do grigio. 

^^ttcnzkme. però, se disponete di un 
monitor bianco e nero con sufficiente ri- 
soluzione vi accorgerete che in realtà il 
grigio di sfondo è appunto una scacchiera 
di puntini bianchi e neri che, vista da 
normale distanza, appare grigia a causa 
delle dimensioni limitatissime dei punti- 
ni. Adottando questa soluzione TefTetto è 
gradevolissimo e le figure appaiono effet- 
tivamente in rilievo. 

p 

X er il funzionamento dì questo pro- 


gramma sono necessarie le routines grafi- 
che sopra accennate. Procuratevi quindi 
il numero 10 di Commodore Computer 
Club e ricopiate le routines di Danilo To- 
ma nella memoria della vostra fantastica 
macchina. 

S e questo è già stato fatto, o comunque 
avete caricato le routines da nastro lo 
disco), date il RUN, 

Quando i DATA saranno stati letti dal 
Computer, potete anche dare il NEW e 
cancellare quello che di BASIC c’è nelle 
routines grafiche. 

etenzione però: non spegnete la mac- 
china! Adesso infatti potete ricopiare in 
memoria anche questo programma, op- 
pure se lo avete già registrato, caricatelo 
da cassetta. In questo modo il program- 
ma SOLIDI avrà a disposizione le routi- 
ne grafiche del TOMA. 

otefe ora dare il via al programma, e 
se non avete commesso errori verrà stam- 
pato un MENU’ in cui vi è dato di sceglie- 
re fra cinque figure geometriche solide. 

Rispondete mTIm domanda e premete 
RETURN, vi sarà chiesto quindi il nume- 
ro dì lati, poi l’angolo dì incidenza, ran- 
gole di rotazione e quello di torsione. 

La domanda riguardante il numero dì 
lati, nel caso si sia scelta una figura come 
la sfera, sembrerà strana, ma basta pro- 
vare a digitare 6, per esempio, e vi accor- 
gerete che non è un assurdo. Se desidera- 
le una sfera vera e propria, battete 100 o 
più e la otterrete; attenzione però, tanto 
maggiore è il numero dì lati, tanto più 
tempo richiederà il disegno della figura* 
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T 4 a velocità del programma infatti è 
ottimizzata al massimo, ad esempio attra- 
verso asseg nazione preventiva dì variato* 
Li, ma i calcoli per il piotiamo di ogni lato 
richiedono tempo, di conseguenza più lati 
chiedete più dovete aspettare. Per angolo 
di incidenza sì intende l’angolo sotto il 
quale si vede l’oggetto. Più basso è Tango* 
lo di incidenza, più l'oggetto sarà visto 
dall'alto. Per angolo di rotazione si inten- 
de il corrispondente dell’angolo dì inci- 
denza ma sul piano orizzontale, ossia di 
quanti gradi sarà -girata- la figura ri- 
spetto all’osservatore. L’angolo di torsio- 
ne è invece Pungolo di rotazione che ogni 
singola «fetta orizzontale» della figura su- 
birà nel pnxiedere verso l’alto del 
disegno, 

M i rendo conto che queste ultime 
spiegazioni risulteranno poco chiare, ma 
provate ad introdurre qualche dato, più o 
meno a caso, e vi accorgerete da soli di 


cosa significhi rotazione e torsione. 

U na volta risposto a tutte le domande il 
computer passerà in alta risoluzione e co- 
min cera a riempire lo schermo grafico a 
scacchiera. Questo riempimento è effet- 
tuato con le 1*0 K E per rendere più veloce 
la cosa. Riempito lo schermo ili program- 
ma proseguirà disegnando la figura con le 
relative ombre. Una volta terminato il 
disegno, per tornare al modo testo basta 
premere un qualsiasi fasto che non sia 
quello di STOP, 

jAt, Menzione ad una cosa: se avete com- 
messo un errore di battitura del listato del 
programma, il computer potrebbe fer- 
marsi nel modo grafico ad alta risoluzio- 
ne, anche premendo diversi tasti, non 
succederà nulla. Se volete tornare al mo- 
do testo le soluzioni sono due. La prima 
consiste nel premere il tasto di STOP, 
assicuratevi che il programma sìa effetti- 


vamente fermo e poi premere contempo- 
raneamente STOP-RESTORE. In questo 
modo però non avrete la possibilità di 
leggere l’eventuale messaggio dì errore, 

a seconda soluzione consìste nel fer- 
mare il programma con STOP, battere 
un RETURN, poi scrivere alla cieca PO- 
KE 248,0 : SYS MO, seguito da RE- 
TURN, Così avrete la possibilità di legge- 
re il messaggio di errore e correggere il 
programma. Per le prime prove, in fondo 
al listato, sono state inserite delle REM 
con alcuni valori da digitare. 

i auguro buon divertimento e vi ri- 
cordo ancora una volta che per funziona- 
re il programma richiede sempre il cari- 
camento preventivo delie routines grafi- 
che di Danilo Toma, le quali devono esse- 
re lanciate prima del caricamento dì que- 
sto programma. 

Luca Galluzzi 
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PROGRAMMO IN 
BASIC 

li linguaggio del futuro in un 
manuale rapido e completo d> 
Clizb Merli 
pagg. 22 A { i 9.GOÙJ 

Il Basic, attualmente il 
linguaggio piti conosciuto - 
adstio aH'utihzzo su qualunque 
tipo di macchina e in 
pa nicol are sul persona! e gti 
horne-com poter - può essere 
appreso m poche ore con 
J' ausilo di questo agile 
manuale. 



COME SCEGLIERE UN 
COMPUTER 

Corda pratica per l'acquisto di 
un mirri o efif un mtcro computer 
professionale di Michele 
Di Pisa 

pagg f 60 (L. 6.000} 

Quale modello scegliere ira gli 
oltre 600 computar 
commercializzati in Italia? La 
conoscen 2 a delle 
caratteristiche dalle varie 
macchine è indispensabile. Con 
un approccio a "menu" 
l'Autore vuot essere guida 
proprio in questa fase. 


UTILITY E ROUTINE 
PER IL 

COMMODORE 64 

dì Gloriano Rossi 
pagg. 192 (L 9.000 } 

L'esecuzione di una istruzione 
BASIC può richiedere diverse 
centinaia di pass» di programmi 
in linguaggio macchina. La 
dimensione dei programmi è 
ciò che intimidisce 
maggiormente l'ut i lizzature 
medio di Commodore; aiutato 
da questo lesto chiunque potrà 
affrontare senza problemi il 
processo di scnttura di un 
programma, 


BASIC PER LO 
SPECTRUM 

di Maanno Aderta e Chilo Merli 
pagg. 192 (L 9,000} 

Un tibro per quanti hanno 
acquistalo il computer 2X 
Speclrum della Sinclair e 
intendono sfruttarne appieno 
tutte le capacità, dall 'hardware 
atta programmazione in 
assembiy (lingua gaio 
macchina). 


E volumi, eòe sono comunque in vendila nette migliori librerie di tutta Italia ^ 
possono anche essere richiesti direttàmenie a! 'Editore. 

Importante: l'ordine mimmo dovrà essere di L. 15. 000. 




Edizioni A CANTHUS 

VIALE GRAN SASSO, 23-20131 MILANO 


Inviatemi i seguenti volumi: 

Titolo quanmà prezzo unirai io 


Alfeurirs Culvai.i, 
Mettalo Di Pino, PanwHj Qu*jQ*ìh4ì 



DIZIONARIO 

DEH.* 

INFORMATICA 


Vocftòol ririo Inglese llaliano 


■ MpI 4 

COftfMJIOl 


DIZIONARIO 

DELL'INFORMATICA 

Vocabolario Inglese-Italiano di 
Coltrerà, Di Pisa. Giacomelli 
pagg. 38$ (L 25-000} 

Uno strumento indispensabile 
per cN si avvicina, ai mondo 
dell'Informatica e per gli 
Specialisti che hanno l'esigenza 
d accedere alla dinamica 
tette rasura anglosassone. 


spese poslali 

L, 2000 

totale L. 

Pagherò conlfasseg no il dovuto (più L, 3.000 per contributo spese posiafi)a! ricevimento. 
Potrò restituire i libri entro s giorni se non saranno di mio gradimento e avere if rimbtm 
so immediato. 
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COMMODORE 64 




cernente il valore di A nella linea 10, è 


v, è mai capitato, listando un lungo 
programma Basic, di dover fermare 
t e mpomnea mente la visualizzazione 
per poter studiare il listato? 

Fermando con RUN STOP si è co- 
stretti poi a ridigitare LIST dalla linea 
di arresto per poter continuare la vi- 
sualizzazione, e nel caso di un pro- 
gramma lungo questa operazione di- 
venta noiosa e ripetitiva. 

Con Stoplkt è possibile, premendo 
SHIFT, fermare temporaneamente il li- 
stato e, rilasciandolo, farlo continuare. 
Dovendo fermare per lungo tempo una 
parte di programma è sufficiente pre- 
mere SHIFT LOCK, 

X 1 programma è più semplice dì quel- 
li visti finora in quanto occupa una de- 
cina di byte di LM ed agisce diretta- 
mente sulla routine di LIST dei s.o. 
modificando i vettori 774 e 775, 

Quando si batte LIST, il 64 salta 
prima a questa routine, che controlla 
tramite la locazione 653 se è stato pre- 
muto SHIFT, In caso affermativo fer- 
ma il listato finché, SHIFT non viene 
rilasciato. Poi, in qualsiasi caso, salta 


alla normale routine di LIST del 64. 

Stoplist è allocato dalla locazione 
49152. Comunque, cambiando semplì- 


possibile allocarlo in qualsiasi parte di 
memoria RAM. 


100 REM *** STOPLIST 

110 REM **fc BY MARIANI GIANCARLO 
120 REM *** TEL. 03G2/725B5 
130 ; 

140 A*4Si5£i REM A R ILOCAB ILE 

3 50 POR K =0 TC 11= READ B: POKE K+A, B= NEXT 

1 80 8=INT< A/25E > ì C=fi-B*256 

170 POKE 774 , C * POKE 775 ,B 

1S0 DATA 72, 173, 14 1 ,2, £01 , 1 ,240,249 

130 DATA 104 ,78 ,26 r 167 

READY. 
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Professione 

‘Informatica’ 


// mercato del lavoro chiede nuove distinte figure professionali ' 
"Corsi professionali: dove trovarli e come scegliere” 


L a complessità e il ritmo della vita 
dì oggi hanno posto fine a un'epo- 
ca in cui la maggior parte delle trattazioni 
e degli scambi avveniva direttamente tra 
le persone* 

Oggi, molte operazioni ormai essenzia- 
li, come le prenotazioni dei posti d’aereo 
ci le transazioni come le carte di credito» 
avvengono a distanza usando delle mac- 
chine come intermediarie* 

3 computer* per le loro capacità» veloci- 
tà di elaborazione» versatilità nel trattare 
ed integrare le informazioni, sono dive- 
nuti indispensabili anche per te aziende 
(meccanica, chimica, servizi, ecc*). 

Oggi i più autorevoli osservatori (Cor- 
riere delle Sera, Sole 24 Ore, ece.) affer- 
mano che qualsiasi impiegato, dirigente « 
professionista, dovrebbe conoscere Le 
possibilità elaborati ve che un computer 
offre per potersi ritenere professional- 
mente preparato ed inserirsi in modo 
consapevole nel mondo del lavoro. 

Alcuni sono ancora scettici ritenendo 
che lavorare nell 1 ambito dei computer 
può essere spersonalizzante* Ciò è vero 
solo se si accetta il computer con poco 
interesse» accontentandosi del ruolo di 
«•aggregato* e seguendo passivamente l’e- 
voluzione tecnico-culturale che esso inve- 
ce determina nella generazione attuale e 
futura. 


In sostanza, per potersi evolvere ed an- 
noverare tra le ‘‘Nuove figure professio- 
nali deir Informatica’’ occorre impo rre 
‘‘allo strumento Computer” le proprie 
regole del gioco* 


Queste tecnologie avanzate chiamano 
in causa due tipi di “addetti ai lavori”: 
ovvero coloro che suno destinati al contat- 
to diretto della macchina e coloro che 
sono invece destinati alla programmazio- 
ne di questo mezzo. 

Sono pochi gli specialisti capaci di as- 
solvere contemporaneamente queste due 
funzioni» c, questi pochi, vengono contesi 
dai grossi complessi, offrendo retribuzio- 
ni da capogiro* 

Nel campo dei software le specializza- 
zioni vanno sempre più assottigliandosi, 
determinando così richieste di mercato 
che non sempre vengono soddisfatte* 

Queste poche ma significative eonside- 
razioni ci autorizzano decisamente a con- 
sigliare ai giovani di intraprendere studi 
inerenti le elaborazioni dei dati o ì’ infor- 
matica applicata ai sistemi gestionali, ma 
consigliamo di essere prudenti nella scel- 
ta, in quanto vi sono corsi o scuole di 
formazione e specializzazione alle spalle 
delle quali si celano organizzazioni didat- 
tiche mal strutturate che puntano in mo- 
do particolare a quanto l’allievo paga, 
senza preoccuparsi se i loro programmi di 
studio danno quella preparazione e for- 
mazione pratica che rispecchia Le esigen- 
ze del momento e del posto di lavoro, 
oppure se il candidato possiede quelle ca- 
ratteristiche attitudinali e logico- 
Intellettive, per poter accedere ad una o 
all’altra specializzazione» 

Quindi, nella scelta, è opportuno valuta- 
re una serie di considerazioni: 


1 - Sede di Studio 

Accertarsi dell’ esistenza dì una sede sta- 
bile della scuola: esistono organizzazioni 
che dopo aver preso in affitto un’aula 
presso una scuola privata o la parrocchia» 
organizzano corsi con frequenza limitata 
(3/4 ore settimanali) e a volte spariscono 
dopo aver iniziato un corso ed incassato 
l’iscrizione* 

2 - Àula laboratorio 

Chiedere di visitare il centro dove avven- 
gono le prove pratiche; spesso vengono 
organizzati corsi per programmatori sen- 
za fare la pratica sui computerà. Ovvia- 
mente in queste condizioni l’allievo ottie- 
ne una formazione incompleta* 

3 - Tipi di corsi da seguire 

Chiedere quanti corsi si possono seguire 
in modo da poter praticare una scelta fra i 
corsi Operativi e di Programmazione. La 
scelta dovrebbe essere fatta dopo aver 
provato le difficoltà che le varie specializ- 
zazioni comportano 

4 - Esperieo za della scuola 

Chiedere da quanto tempo vengono orga- 
nizzati corsi di informatica nell’ambito 
delta scuota. 

L’esperienza di qualche anno È un ele- 
mento rassicurante. 

5 - Programmi di studio 

Chiedere i programmi di studio e farli 
consultare da una o più persone già esper- 
te per conoscere il Loro parere. 
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Scuola Radio Elettra 

Via Stellone 5-10126 Torino 


L’elettronica applicata alla nostra vita quotidia- 
na: nel lavoro e a casa. Come prepararsi a vive- 
e lavorare in un mondo che sarà sempre più 
dipendente dai calcolatori. E soprattutto, come 
imparare a controllare, programmare e 
sfruttare i computer, assicurandosi mol- 
te possibilità in più di avere, domani, un 
ottimo stipendio. 




BUONE RAGIONI PER 
ISCRIVERTI Al NOSTRI CORSI. 

O Decidi tu ia durata dei Corso e 
paghi solo le lezioni che fai. 

© I materiali di sperimentazione resteranno 
tuoi, come ! attrezzatura completa di 
camera oscura o quont altro previsto 
piogrammi. 

© Aho fine del Corsa ti verrà rilasciato un 
Attestato a confermo dello preparazione 
acquisito. 


Compila, ritaglia, e spedisci solo per informazioni a: Y * « 

SCUOLA RADIO ELETTRA - Via Stellone 5 - 10126 Torino | 

Vi prego di farmi avere, gratis e senza impegno, il materiale informativo relativo al Corso di: 

I 
I 


L< coesi di ELETTRONICA O Strambili di nutrirà 

I O T tenie* elettronica □ Pari» B* sic J 

fptrimnntilff' 

□ Elettronica digitale ' CORSI TÉCNICQ- 

□ Mlcw»mpuiei ' PROFESSI ON ALJ 

I O Elettronica r*dk> TV □ Elettrotecnica 
□ Elettronica indù ima le Q Dieegnatore 
□ Televisione btn meccanico progettiate 

□ TelevtaJprve 1 colorì P Asaialarrle • 

P Amplificazione etereo _ dteegnaiore edile 


G Detti logreli» 

□ Lingua inglese 

□ Lmgus lf»ne«e 

□ Lingua tedesca 


Se vuoi saper oa di più, compila il 

e specifica il Corso che più ti interessa. 
ET una richiesta che non ti impegna. 


□ Ahi («detti □ Materiate auto n paratore Q Impiegate dazienti a 

(inrtcare cor?' una cerasti?* 14 CSSOIFa Cte interassea) 

COGNOME 
NOME 

VIA 

LOCAUTA 
CAR ì 

ETÀ _j_ PROFESSIONE 

MOTIVO DELLA RICHIESTA 
MB <™ HH 1ÉÌ* I 


□ Tecnico d'officina 

□ Elettrauto 

□ Programmatane su 
elaboraiorì elettronici 

□ Impianti a energia salare' 
lì S lai d allarme antifurta * CORSI PROFESSIONALI 

□ Impianti idraulici -unitari ’ E ARTISTICI 

G Fdtograli* 

CORSI COMMERCIALI O Disegno « pittura' 

Q Esperto commerciale D Esperta in coanesi' 

o Arredamento' 


NOVITÀ 


u TEI 


PER LAvOflOD 


PERH&BBVD 


Specializzati con il 
Corso per corrispondenza 


in microcomputer. 



Ptri(pwfi™»r 'kn formati»' 



6 - Riconoscimenti 

Scegliere tra k scuole che hanno corsi 
riconosciuti accertandosi che il riconosci- 
mento sia riferito al corso In cui si è 
iscritti. 

Vi sono scuole che hanno uno o due corsi 
riconosciuti e tanti altri di tipo lìberi ocon 
presa d'atto, 

7 - Tempi dì studio 

Accertarsi del numero del monte ore di 
studio neU’ambito deli 1 anno scolastico; 
cercando di individuare i tempi dedicati 
alle lezioni teoriche ed alte esercitazioni 
pratiche, ovviamente più ore si Tanno me- 
glio è. 

Necessario ma non essenziale, è anche 
la potenza di elaborazione dei computer 
installati, in quanto è meglio impararle sul 
grosso sistema operativo e, al limite, pas- 
sare poi al piccolo. 

Dì seguito segnaliamo alcune scuole 
professionali che dovrebbero possedere i 
requisiti sopra indicati: ed inoltre la mag- 
gioranza dì esse fanno parte di un'asso- 
ciazione di scuote (ANINSEI) dove per 
poter aderire occorre avere corsi legal- 
mente riconosciuti. 

• CJ.À.M» Centro Informatica Appli- 
cata Milano 

Milano - P . za S. Eustorgio 2 
Monza - Vìa Mi&sori 10 

• Istituto E. Kant 

Vìa Bruschetti 11 - 20125 Milano (Aula 
la borato no con compiile rs C o m m odore ) 

• Informix Data 

Via M, Gonzaga 4-20122 Milano 

§ Zanoni 

P.za Duomo 21 - 20121 Milano 

• Speedwriting 

Via Ugo Bassi 11 - 40121 Bologna 
§ S. Ottavio 

Via S. Ottavio 42 - 10124 Torino 

• S.D.C, 

C.so Matteotti 3 bis - 10121 Tonno 


• LDX 

Via Ricaso li 9 - 50122 Firenze 

• Meccanografici) Manin 

Via D, Manin 69 - 00185 Roma 

• Centro Meccanografico 2000 

Via Volturno 2/C - 00185 Roma 

• Fevola 

Via Fabio Massimo 472 - 00192 Roma 

• Aureli» Fevola 

Via Flaminia Vecchia 466 - 00191 Roma 

• A. Meschini 

Via Piave 7 - 00187 Roma 

• E. Meschini 

Via Boezio 2 - 00192 Roma 

i 

• G. Meschini 

V. le Giotto 1 ■ 00158 Roma 

g "feÉ _ 

§ Magnum 

Via Pr. Amedeo 88 - 00185 Roma 

• Cinecittà 

Vìa Statiìio Oliato 33 - 00174 Roma 

% 

• Spellucci 

Vìa S. Croce in Gerusalemme 83/C - 
00185 Roma 

• Universa! 

Via A, Lucci 104 - 80142 Napoli 

• Pirrone 

Via Toledo 148 - 80134 Napoli 
t Arti e Scienze 

C.so Garibaldi 340 - 00146 Napoli 

• Tecnica 2000 

Via Mons. Bagnoli 84 
67051 Avezzano (AO) 

• J+ Maritain 

Via Mazzini 11 - 74 100 Taranto 


A cura delia Direzione Didattica 
delCXÀ.M. 


Nuovo corso rapido di 

PROGRAMMAZIONE 
BASIC su 

MICROCOMPOTER 



Scelga il Corso a lei piu adatto; 


PROGRAMMAZIONE. 
BASIC E MICROCOMPUTER 

* per il Commodore 064 

• per il Commodore VIC ?0 

# per il Sinclair- ZXSpectrum 

* per il sinc^l^ir - ZX8I 

L ] 

In sole 14 dispense lei imparerà a. dia- 
logare con il computer, sviluppare pro- 
grammi dà solo, modificare quelli esi- 
stenti, creare grafici in movimento, ca- 
pire l'informatica sul suo calcolatore, 
confrontare il BASIC con altri linguaggi 
(COBOL, FORTRAN, ecc.) e godrà del- 
l'assistenza gratuita dei noslri esperti. 


LA 1* DISPENSA IN VISIONE 


Chieda subito, in visione gratuita e 
senza impegno, la dispensa piu 
adatta al suo computer La riceverà 
completa di documentazione e solo 
per posta raccomandata. 

Cosi potrà toccare con mano la bontà 
del metodo IST e decidere in assoluta 
libertà. 

Sfrutti questa occasione e spedisca 
oggi stesso il nostro tagliando? 



2 


Cl 





Vie 20 INESPANSO E COMMODORE 64 

Numero 

ì 

Fantasma 


Show 






. . 

boh 


t •VSS'iS!* 
■ 



Un gioco , una provo di abilità, 
dì memoria di mentalità 
matematica? Fate un po’ voi,.. 







c 


on l'introduzione dei moderni calco- 
latori (e del computer!) nella nostra vita 
di tutti i giorni st sono avuti molti 


vantaggi. 

C’è, però, il “solito” rovescio della me- 
daglia: abbiamo disimparato a calcolare 
a mente, o almeno non siamo più abituati. 

Cerchiamo allora di usare il computer 
per rimanere allenali al calcolo mnemonì- 
co con questo semplice programma di cui 
viene fornita la versione per il VlCe perii 
Commodore 64, 


Cosa fa il programma 








A, 


ir inizio vengono mostrate cinque 
coppie di numeri da una afra (versione 
C= 64. Per il VIC sono 4) sotto le quali è 
visualizzala una lettera drir alfabeto (dal- 
la lettera A alla lettera E per il C= 64} per 
ciascuna coppòj. Dopo alcuni secondi 
(circa cin que), le coppie di numeri vengo- 
no coperte. Verrà allora visualizzata la 
scritta “NUMERO DA REALIZZARE: 
XX”, dove XX rappresenta un numero 
scelto dal computer “quasi” 
casualmente. 

•Scopo del gioco è quello di riuscire a 
realizzare il numero mostrato dal compu- 
ter usando una delle quattro operazioni 
(+»*,*,/) applicala alla coppia di numeri 
prescelta. 
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Per fare questo bisogna premere il ta- 
sto della coppia prescelta (dalla A alla E) e 
poi r operazione diesi vuole eseguire fra i 
numeri di quella coppia, tenendo presen- 
te che l'operazione verrà eseguila fra la 


programma alla quale bisogna risponde- 
re con S o N rispettivamente. 



Come Funziona 



prima cifra e la seconda e non viceversa. 
A questo punto un «empio può meglio 
Spiegare Fuso del programma. 

Supponiamo che le cinque coppie 
siano: 

A: 13 
B: 54 

D: 3 7 
E:U 

Supponiamo che il computer scriva: 
NUMERO DA REALIZZARE: 1 

E* nostro compilo individuare tuta cop- 
pia di numeri die sommati, moltiplicati o 
divisi fra loro fornisca, come risultato, 1. 
La coppia B fa proprio al asso nostro se 
l’operatore matematico è il meno: infatti 
5-4=1 che risulta essere esattamente il 
numero indicato dal computer. Non è 
detto die questa sui Tunica soluzione, an- 
zi, in questo caso si poteva fare “C-” cioè 
941=1, oppure E* cioè t * I oppure an- 
cora “E/” cioè 1/1= L Ognuna di queste 
soluzioni era valida e potevamo indicare 
quella che preferivamo. 

Se però (ricordiamoci che t numeri 
vengono nascosti) non ci ricordiamo più i 
numeri delle coppie, possiamo sbagliare 
ad indicare la coppia oppure l’operazione 
da eseguire per quella coppia. 

In questo caso sarà il computer a dirci 
una soluzione esatta, per esempio la 
prima: 

B-== 5*4=1, 

Verrà quindi visualizzata la richiesta di 
un nuovo tentativo o P “abbandono" dei 


LI prosammo è abbastanza semplice e 
non dovrebbe comportare alcuna diffi- 
colta di comprensione. 

Inoltre le varie parti del programma 
sono spiegate nelle REM del programma 
stesso. 


Versione Vie 


Nella versione Vie, per ovvie ragióni di 
larghezza video, le coppie sono state ri- 
dotte da cinque a quattro e quindi le lette- 
re corrispondenti, come già detto sopra, 
vanno dalla A alla IX 





D metodo usato per cancellare le coppie 
di numeri nel programma per il Vie è 
quello di scrivere le cifre in un dato colo- 
re, e poi di cambiare il colore dì fondo 
mettendo Lo stesso colore delle cifre (nel 
nostro caso nero). 




Versione C= 64 


Nei Commodore 64, come già detto, le 
coppie sono cinque e le lettere corrispon- 
denti vanno dalla À alia E, Per quanto 
riguarda il modo in cui vengono coperte 
te coppie di numeri, esse consiste nel so- 
vrapporr uno SFRITTE per ogni coppia, e 
toglierlo alla fine, senza brusche variazio- 
ni del colore di fondo. 

Inoltre Fuso degli SPRITE permette 
un simpatico effetto finale,.. 
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Giovanni Bellù 









Versione Vnc 2© 

100 REM 

110 REM NUMERO FANTASMA VERSIONE VIC 
1£0 REM 
130 REM 

1-40 REM ■ GIOVANNI GELLU ' 

150 REM 

160 REM VIA GIARDINI £0 SERE6NG C MI 3 
170 REM 

1 80 REM TEL . 036S/239580 

190 REM 
S00 REM 

£10 REM CANCELLA VIDEO 
220 PRINT"iJ" 

£30 REM SFONDO NERO 

£46 P0KE3G879 ,8 

£50 OIMA*< 51 ,B« 9 3 ,AC5 r £J 

260 a*< i > = * assaggisi" 

£70 F0RK=£T04 : A*< K)=A« K-l 3 * " t NEXT 

£80 FORK = 0TO9!B*< K 3 =R 1GHT*C STRs** K3 , 1 3 iNEXT 
£90 FORK= 1 TD4 >PR INTASA K 3 <nm»ruoc K+G4 ) ! XEXT 
360 OEFFNAC A 3 = INT< RND< 1 3 *9 + 1 3 
310 OEFFNB< A3 =INT< RNDC 1 3 *A + 1 3 

3£0 FRI NT" aria ALLENATI A CALCOLARE a MENTE S" 

330 FORK = 1 T04 • FORJ = 1TOS : A( K , J 3 =FNA( K > i NEXTi NEXT 
340 P*=“a”iFORK= 1TG16:P$=PSP+ "M“ '• NEXT 
350 F0RK=1T04 

360 PR INTA*( K.3B$< At R, 1 3 3 ’ "B«WK,£)3 

370 TEXT 

380 FORK= 1 TO5000 ! NEXT 
390 P0KE36879,16 

400 PRINTP* 1 ' a 94UMER0 DA REALIZZARE! “ì 

4 10 A =4 : X=FNB< A > i Y=FNB( A3 
4£0 IF Y=1 THEN GOTO 470 
430 1F Y=£ THEN GOTO 500 
440 IF Y“3 THEN GOTO 530 
450 IF Y=4 THEN GOTO 560 
460 PRINT"ia ERRORE B ! END 
470 REM SOMMA 

480 N=A< X, I 3 +A< X,£ 3 
490 D$= »+ “ 1GOTO590 
500 REM DIFFERENZA 

5 10 N=A< X , 1 3 -A< X ,2 3 
520 0$= “ - “ ! GOTO590 

530 REM MOLTIPLICAZIONE 
540 N=A< X,I3*A( X,£> 

550 D«=** “ 5GOTO530 
560 REM DIVISIONE 
570 N=A< X , 1 3/AQ X,£ ) 

530 Df- u /“ :GOTO590 
590 PRINTN 

G00 PR INTPt 11 MflflH a INDOVINA ! “ f 
610 GETA^s IFA*< “A "ORA* 3- “E "THENS 10 
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620 B=A3Ct A$? -84 
630 PR INTANI ° 

640 GETA$: IFA$= n "THENB40 
850 IFAS- " + H THEM700 

800 » - " THEN720 

670 I FA** » * « THEN740 
633 IFR£*"/"THEN760 
630 GOTO 640 
733 T-ft< B f 1 ? +A< B r£ > 

710 GOTO770 

720 T“A< B * l > -A< B , 2 ) 

730 GOTO770 

743 T =A£ B , 1 > *ft< B r 2 > 

750 GOTO 770 

760 T^A< 9 , ! 5/A< B,2) 

770 PRINTA^;* 1 * 11 T 

730 lPT=NTHENFRlNTFg*M« aifl INDOVINATO S ! "SBOTD8Ì0 
730 PRINTP* ,, aB M SBAGLIATO ! ! w 

330 PR I NT " UNA SOLUZIONE ERA * "CHR$<K+64> H H D$" 

310 POKE36373 ,8 

320 FRI NT* 1 a aa VUOI RIPROVARE ?" 

830 GETA$; IFAT=* "THEN830 
340 IFft4r*«S"THENRUN 
850 FRI NT 11 ai" 

88B REM GIOVANNI BELLO ’ SOFTWARE VIC 1984 








mm 










READY. 




I 





100 REM 
i 10 REM 
120 REM 
130 REM 
140 REM 
150 REM 
160 REM 
170 REM 
1S0 REM 
130 REM 


Y er siicMie 
Commodore 64 


NUMERO FANTASMA 

1 % 

D I 

G IQVANNI - BELLU * 
VIA GIARDINI 20 5EREGN0 < MI 5 
TEL* 0362/239530 







. > ‘ . , ' * ■- • 
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£00 REM 
210 REM 

££0 REM COMMODORE S 4 

230 REM 

£40 REM ** CANCELLA VIDEO ** 

250 PRINT"iJ" 

£60 REM ** SFONDO E BORDO GRIGIO SCURO-** 

£70 POKE 53230 , 1 1 :PÒKE 53 £B 1 , 1 1 

£80 REM ** VALORE INIZIO DATI SPRITE ** 

£90 V= 53£43 

300 REM ** SPRITE QUADRATO PIENO *# 

313 F 0 RK= 33 £T 0835 !P 0 KEK,£ 55 !NEXT 
3£0 REM ** COLORI SPRITE ** 

33 B PGKEV+ 33 , 1 ! POKEV+ 40 ,7 t POKEV + 4 1 , 5 i POKEV + 4 E ,£ : POKEV + 43 ,6 
340 REM POKE PER POSIZIONI SPRITE 
350 REM ** SPRITE 1 ** 

360 POKEV , 48 " P 0 KEV + I , 100 * REM SPRITE 1 
370 REM ** SPRITE £ ** 

380 F 0 KEV+£, 96 : POKEV+ 3 , 100 

390 REM ** SPR ITE 3 ** 

400 POKEV+ 4 , 144 SP 0 KEV+ 5, 103 
410 REM ** SPRITE 4 ** 

4£0 POKEV +6 r 132 : POKEV + 7 , 100 
430 REM ** SPRITE 5 #* 

440 POKEV + 8 , £ 33 :P 0 KEV+ 3, 100 
45 B REM ** INIZIO DATI SPRITE ** 

460 FORK =£ 040 TO£ 044 • POKEK , 13 JNEXT 
470 REM *.*. INIT. VAR IABILI ** 

4 S 0 DIMA$< 5 ) ,B*K S> ,A< 5 ,£) 

490 i >= ,, aaiiaaaeam " 

500 F0RK=£T05: A*< K?=A*t K-l ) + * (UIIH" : NEXT 
510 FORK=0TO9: B$C K ) = R IGHT*\ STR*< K ) , 1 ) ! NEXT 
5£0 FORK = 1T05 :PR INTANI K > K+64 > s NEXT 

530 REM ** NUMERI RANDOM ** 

540 DEFFNAC A 5 = INTC RNC( 1 > * 9 + 1 ) 

550 GEFFNBC A ) = INT< RHOC 11 *A+ 1 > 

560 REM ** INIZIO GIOCO **“ 

570 PRINT‘'ai a ALLENATI A CALCOLARE A MENTE " 

530 REM ** SCELTA NUMERI RANDOM ** 

530 FORK = 1 T05 : FORJ = 1TC£ : A( K , J > =FNA< K > i NEXT: NEXT 
600 POKEV +H1 ,0SP$="g" iFORK = 1TQ16 : P$=P#+ * NEXT 
610 REM #* STAMPA NUMERI SCELTI ** 

G £0 FORK= 1 T 05 

G30 PR INTA¥( K AC K , 1 } ? •' «B^CACK/SIJ 
640 NEXT 

650 REM ** RITARDO DI 5 SECONDI ** 

660 FORK = 1 TO 5600 : NEXT 

670 REM ** VISUALIZZA SPRITE ** 

680 REM ** E CANCELLA NUMERI ** 

630 POKEV+E 1 ,£55 

700 REM ** VISUALIZZA NUMERO ** 

710 REM ** DA REALIZZARRE +* 




720 PRINTF*" a^NUMERO DA REALIZZARE: 
730 ft«5SX* FNBC = Y=FNB< A> 

740 IF Y=I THEN GOTO 810 
750 ÌF Y=£ THEN GOTO 840 
760 IF Y-3 THEN GOTO 870 
773 IF Y “ 4 THEN GOTO 300 
730 PR!NT"a ERRORE "SEND 
700 REM + * CALCO L A NUMERO ** 

S00 REM ** CR REALIZZARE ** 

310 REM SOMMA 

820 N^AC K / 1 ) +fK X ,2 > 

830 Df-" + '“ : GOTO 3 30 
840 REM DIFFERENZA 
050 N=R< X , 1 )-RCX, 2 ) 

360 BS= U - ,a : GOTO930 
87© REM MOLTIPLICAZIONE 


89© N=fK X , 1 > X 
©90 D&-" : GQTQ330 
300 REM DIVISIONE 
310 N=ftC X , 1 )/R( X,2 > 


926 

333 


" / " : GQTQS30 
FRI NTN 


Le y vr 


a INDOVINA 


■ M ■ 

* r 


340 PR I MTPS ", 

950 GETfì^i IFA$< W A "ORAS> "E “TMEN950 
3B0 B=ASC<ft£}-G4 


Il » 

/ 


370 PRINTRS; " " ; 

380 GETA*: IFA^ H "THEN380 
330 B +"THEN1040 

1000 I F A$ = 11 - H THEN1 068 
1010 I FA*= * * H THEN 1 080 
1020 IFAST^'V* TRENI 100 


1030 GOTO380 


1040 T-R< B , 1 ) +A< > 

1050 GOTO 1 I 10 

1060 T-R< B , I ) -fì< B,2 > 

1070 GOTO 1 1 10 

1000 T=AC )*A<8,2> 

1090 GOTO H 10 

1100 T=fK B, I 

1110 PRINTR*; H " T 

1120 REM FINALE 


1 130 


1FT=NTHENPR INTF$ P 1 


f v ! r j ij 


INDOVINATO ! !" 


1140 pr iNTFT^ yprnmn Ma sbrglirto ■ ! ” 

1150 PR I NT 11 UNA SOLUZIONE ERA t "CHR*CX+64>" 
1160 REM EFFETTO FINALE SPR1TE 


t 170 FORK=£55TO0STEP-5=POKEV+2 1 :FORJ= 1TO50 

1180 PR 1 NT " M a. VUOI RIPROVARE ? N 

1130 GETA$: IFA$= U “TRENI 130 

1200 IFA$= “ S " THENRUN 

1210 RRINT M Ji" 


READY* 





GOTO 1 170 

'* D $ '* = J;i N 

NEXT = NEXT 
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I MICROPROCESSORI 


Assembler 


^fota: prima dì leggere queste infor- 
mazioni, e comunque prima di osare il 
programma Assembler, è indispensabile 
ette il lettore abbia una buona conoscenza 
del sei di istruzioni del microprocessore 
(mp) 6502 65 IO e del loro significato - 

Assembler 

Che cosa è un Assembler? E' un “letto- 
re” di un programma scritto secondo un 
particolare codice mnemonico, comodo 
per r operatore, e lo “traduce' 7 in lin- 
guaggio macchina (L.M,). 

I programmi in Assembler sono quindi 
programmi destinati ad essere scritti in 
L.M, non dal programmatore, ma da un 
progr anima ‘compilatore’ detto appunto 
Assembler che si occupa di tradurre in 
L*M* un linguaggio più semplice per IV 
pe rato re. stesso* 

II vero e proprio L*M. è una successio- 
ne di numeri csadecimali ed è completa- 
mente indecifrabile e difficile da compila- 
re tranne ovviamente che per il personale 
molto esperto, L'Assembler è pertanto 
un programma utile a chi conosce i limili 
del Basic e desidera lavorare in L.M. sen- 
za perdere troppo tempo per imparare la 
tecnica della compilazione. 

Per esempio il numero esaderimale 
* A9 1 per il mp 6502 significa; 

“carica il numero (die segue ) 
nel Pace ti molatore” 

e l'operatore dovrebbe quindi ricordare 
il numero $ A9, il suo significato e il codi- 
ce e il significato delle !§I istruzioni del 
Hip 6502. È' ovvio che è più facile ricorda- 
re, invece di A9, un’abbreviazione del 
significato di A9 stessa, cioè EOA, (da; 
Eoa!) A ec umiliatori 

Eri altro notevole vantaggio derivante 
dall’uso di un codice mnemonico è che 0 
programma scritto usando nomi tende ad 
essere affetto da un minor numero di 


errori. 

Che cosa è , concludendo, il program* 
ma Assembler? E’ un programma compi- 
latore che traduce a sua volta un pro- 
gr atti ma scritto ricorrendo a codici mne- 
monici (facili da ricordare come le istru- 
zioni del Basici, in L,M, direttamente 
comprensibili dal mp 6502. 

Il mp 6502 ha 56 diversi tipi di istruzio- 
ni e quasi ognuno di essi comprende due o 
più modi di essere elaborato (assoluto, 
indiretto, pagina 0, ecc,). E’ ovvio che vi 
saranno 56 codici mnemonici, uno per 
tipo distruzione, ed uno o più modi di 
esprimerli che vengono propriamente 
delti ‘modi d 'indirizzamento’. 

Et 6502 ha D diversi modi d’indirizzi 
mento che controllano le modalità secon- 
do cui le singole istruzioni devono essere 
elaborate. Benché il lettore debba saper- 
lo, è bene ricordare che non tutte le istru- 
zioni posseggono È 13 modi di indirizza- 
mento; si sa anzi che nessuna istruzione li 
ha tutti, ed alcune ne hanno addirittura 
uno solo (Istruzioni implicite). 

Riportiamo a pag. la differenza di 
codice di alcune istruzioni tra lo Assem- 
bler originale della Mas Technology (che 


produce Li 6502) e l’ Assembler che vi pro- 
poniamo per i 13 modi d indirizzamento; 

Il mp 6502 ha a deposizione 16 hit per 
gli indirizzi e 8 bit per i dati; può dunque 
trattare un qualsiasi dato di valore com- 
preso tra tì e 255 (esaderimak tra 06 ed 
FF), in qualsiasi locazione di memoria, 
chiamata per semplicità indirizzo, com- 
presa tra 0 e 65536 (esa. 0000 FFFF). 

Per vedere i vantaggi delio Assembler 
rispetto al L»M m supponiamo di voler in- 
dicare l'indirizzo (826) del primo byte del 
buffer della 2a cassetta. 

Dovremmo, in tal caso, ricordare a me- 
moria il numero 826 e trascriverlo come 
indirizzo ogni volta che ci serve. 

Per esempio se volessimo scrivere il nu- 
mero esa FF nella locazione $008 A (cioè 
826 decimale; ^826) dovremmo digitare; 

A9FF8D 3A0360 

Se invece definiamo all 'inizio, con un 
nome qualunque (per esempio ‘SALTA') 
la Locazione ^826 e utilizziamo i codici 
mnemonici, possiamo scrivere più 
facilmente: 

@826 = SALTA 

LDA# #FF 


Modo 

Mos Tech. 

Nostro 


Implicito 

BRK 

BRK 


Accumulatore 

LSR A 

LSR A 


Relativo 

BCSNOME3 

BCS +NOME 


Immediato 

LDA i*10 

LDA# #10 


Assoluto 

JSR CRT 

JSR ;CRT 


X-fndic. asso!. 

STA FOO.X 

STAX FOO 


Y-lndic. assai. 

ADC ABC,Y 

ADCY ABC 


Pag. U X -indie. 

INC SPO,X 

INC.XSPO 


Y-tndtc. pag. 0 

SBC ABC.Y 

SBC. Y ABC 


Indiretto 

Pre-X-indicizz. 

JMP (SALTA) 

JMP SALTA 


Indiretto 

Post-Y-indiriz, 

AND(ABCX) 

AND® X ABC 


Indiretto 

CMP (NUM),Y 

CMP®Y NUM 
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STA ;SÀLTA 
RTS 

il nont« dì fantasia ‘SALTA' e tutti gli 
altri che si vorranno usare, si chiamano 
più propriamente 1 ‘etichette*’ , ma usere- 
mo il termine inglese ‘label'', 

Come usare F Assembler 

In questo Assembler, come in tutti gii 
altri, è necessario fornire tre tipi di infor- 
mazktnù le istrmioiii; gli operandi, le 
direttive. 

Le ISTRUZIONI sono proprio quelle 
mnemoniche del 65412 (al massimo alcune 
di esse si differenziano da quelle standard 
per un simbolo posto alla fine di esse)* 

Gli OPERANDI sono i ‘nomi’ degli in- 
dirizzi su cui le istruzioni devono 
operare. 

Le DIRETTIVE scino i comandi propri 
deir Assembler, di grande utilità per IV 
peratore, ma che non sono tradotti In 
L.M, 

Per esempio, il comando per definire 
un indirizzo con un nome di fantasia, rap- 
presenta una direttiva. 

Il modo d’ indirizzamento delle istru- 
zioni è indicato da un suffisso di uno o di 
due caratteri; essi sono indicati nella se- 
guente tabella in cui U termine “bF* signi- 
fica t4 blank’\ cioè non si deve scrivere 
ralla. 

L 1 Assembler utilizza gli operandi come 
segue: 

Operandi ad un byte (7) 

*$ + ;< 

Esempi: 

H1.0 significa numero decimale 
(LDà=£ ^Ift carica in accumulatore 11 
numero dee, 10). 

$F2 numero esa- (LDÀ=é $F2 carica in 
accumulatore il numero esa. F2 equiva- 
lente al decimale 242). 

‘X Valore del carattere ASCII rappre- 
sentato dalle lettere, (LDA^ ’R carica in 
accumulatore il valore ASCII che rappre- 
senta *R 7 (cioè 82). Da tener presente che 
la sintassi corretta è: apostrofo, spazio 
bianco, virgola nel caso si voglia inserire 
un blank. 


BIT7 indirizzo io 0 page o nome di una 
costante. (LDA# .BIT7 carica in accu- 
mulatore il valore della costante indicata 
precedentemente con BOY). 

PTR (LDA. .PTR carica in accumula- 
tore il contenuto della locazione in 0 page 
indicata precedentemente con PTR) 
+LOOP salto ad una routine definita 
col nome LOOP. (BNE +LOOP signifi- 
ca: se il risultato dell 1 operazione non è = 
0 esegui la routine che parie dair indiriz- 
zo individuato dalia label LOOP. 

< coni mento: quaLsiasi stringa che inì- 
zi con < sarà trascritta sul video o su 
stampante senza influenzare miiùma- 
mente il programma. Corrisponde prati- 
camente alio statement REM del Basic. 

Operandi a due bytes (4) 

;$ ” •. 

; CRT ADR indirizzo assoluto. (LDÀ 
;CRTADR carica in accumulatore il valo- 
re corrente della locazione CRT ADR). E 7 
possìbile usare anche CRTADR+1 !. 
Cooperando visto serve anche per definire 
il nome di una costante. 

; ^59468 indirizzo decimale assoluto* 
;$FFD2 indirizzo esadec. assoluto. 

?, À carica in accumulatore il valore % 
tale che POKE Y,X consenta di scrivere il 
simbolo A sullo schermo del computer. 
Ovviamente 1024<Y<2023, 

Direttive 

@ @ $ O 

@ 826 significa che il programma as- 
semblato dalla direttiva 826 in su sarà 
allocato in memoria dalla locazione 826 in 
su. in altre parole il ‘contatore di locazio- 
ni ^ dell 7 Assembler è settato su 826. E* 
ovviamente possìbile, entro certi limiti, 
rilocare facilmente un programma prece- 
dentemente scritto, semplicemente cam- 
biando il valore 826. lì simbolo serve 
anche, come vedremo, per definire una 
costante, 

# $033 A come sopra, solo che il valore è 
espresso in esadecintale. 

826=TOP significa che la Locazione 
826 è denominata ‘TOP 7 . La direttiva = è 
usata anche per definire costanti. 


Esempio: 

CI < f V E 7 UNA COSTANTE 
= ALTO 

CMP=é,ÀLTO significa compara il 
contenuto dell 1 accumulatore con la co- 
stante prima indicata con ‘ALTO*. 

1 1 programma scritto in Assembler con 
le regole finora viste deve essere allocato 
all’interno del programma Assembler 
stesso, che è scritto in Basic, utilizzando 
statement DATA a partire dalla locazione 
1170. 

Tener presente che il primo DATA de- 
ve SEMPRE essere un nome di fantasia 
col quale indichiamo il nostro 
programma. 

[/ultimo DATA, invece, deve essere un 
gruppo di virgolette (vedi righe 1170 e 
1250 del listato pubi irato). 

In altre parole, dopo aver acceso il 
Commodore 64, caricheremo il program- 
ma Assembler e, a partire dalla locazione 
1170, scriviamo tanti statement DATA 
quanti sono i codici del nostro program- 
ma cancellando quelli che eventualmente 
già si trovano o apponendovi delle REM. 

E 7 ovvio che le istruzioni, gli operandi, 
le direttive, i commenti, devono essere 
separati da una vìrgola oppure, (ma è più 
scomodo ed occupa più memoria) utiliz- 
zate una riga per ogni statement. A que- 
sto punto è indispensabile prima di far 
partire il programma, salvarlo su nastro 
o disco perchè, se abbiamo commesso un 
errore, lì computer potrebbe andare in 
tilt, costringendoci a spegnere e riaccen- 
dere Papparle ehio vanifica udo lo sforzo 
impiegato a trascrivere il programma. 

E* superfluo dire che sarà necessario, 
per ogni programma scritto in Assem- 
bler, dopo averlo vanificato, salvare su 
nastro sìa I 7 Assembler sia il programma 
da assemblare, ma ciò viene fatto auto- 
maticamente perchè quello da assembla- 
re è ‘incorporato 7 in quello Basic grazie 
agli statement DATA, Quando digitiamo 
KUN apparirà su schermo o su stampante 
il lisling del programma assemblato. 

Che cosa avviene quando facciamo ese- 
guire il programma Basic? 

1/ Assembler legge il programma tra- 
scritto nelle linee da 1170 in poi, due vol- 
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te. La prima per trovare Le costanti, le 
label ed eventuali errori dì sintassi; la 
seconda per scrivere il programma in lin- 
guaggio macchina e per completare la ri- 
cerca degli errori. 

Nella prima fase di Lettura il program^ 
ma stampa su schermo o stampante tutte 
le costanti e le label incontrate, nella se- 
conda, oltre a scrivere in L.M. fa appari- 
re il programma assemblato distante dal 
bordo del foglio (o del video) della quanti- 
tà che avremo digitato quando, airi ni io, 
è stata richiesta. 

Nei DATA de! programma pubblicato 
è incorporato un programma di nome 
INVERSIONE SCHERMO*. 

Dopo averlo caricato, battendo RfJN 
apparirà sullo schermo La seguente 
sequenza: 

INVERSIONE SCHERMO 

= CRT 

= PTR ecc. ecc» 

I n reverse appaiono Le Locazioni definite 
con nomi di fantasia» Al rigo successivo 
appare la stessa locazione coi contenuto 
della istruzione in L.M. Da notare che 
appare anche la traduzione in decimale 
del simbolo stesso; ad esempio, nella loca- 
zione 840 denominata 1NNER vi è t'istru* 


zinne LO A Y che in L.M, è rappresenta- 
ta dal numero esa B9 che tradotta in deci- 
male è appunto 177. Tale * traduzione * in 
dee. è comoda per chi avesse residenza di 
verificare la memoria RAM tramite il co- 
mando PEEK(X). 

Se il programma è corretto, da un pun- 
to di vista strettamente sintattico, alla fi- 
ne della compilazione appare il messaggio 
‘PROGRAMMA SINTATTICAMENTE 
CORRETTO* ed il consueto “READY”, 
indicante il termine della esecuzione del 
programma» 

Attenzione: V apparizione di tale mes- 
saggio non significa assolutamente che il 
programma da noi compilato funzionerà 
correttamente, ma solo che La sintassi è 
corretta. 

Messaggi di errore 

• Operando errato: I* Istruzione inserita 

j 

nel DATA precedente richiede un ope- 
rando diverso da quello indicato. 

• Byte troppo grande: l'indi ri zzo che 
chiediamo di caricare è superiore al valo- 
re 65535 oppure 255 se abbiamo chiesto 
una locazione in pagina zero oppure 255 
se chiediamo di caricare il valore in accu- 
mulatore, X ecc. 


• Troppe labels; per risparmiare memo- 
ria nel programma fornito non si devono 
superare le 25 labels; volendo aumentare 
tale valore, modificare, nella riga 160 tl 
valore dì SIZ^25* 

• Label non definita: cerchiamo di trat- 
tare una label non definita precedente- 
mente. Inserirla tra i primi DATA. 

• Codice scorretto: l'istruzione trascrit- 
ta non rispetta le regole accennate. 

IL programma pubblicato battendo 
SYS(826h cambia in re verse (e viceversa 
ribattendo SYS(826) tutto ciò che è pre- 
sente sullo schermo del Commodore 64. 

Nota bene 

1/ Non è possibile abbreviare “PRIN- 

T# M con * 4 ?*\ 

2/ Prestare la massima attenzione alta 
trascrizione dei DATA ed in partScdar 
modo ai simboli di virgolette, virgole, e 
spazi mobili. 

3/ Registrare il programma prima di 
farlo partire, 

4/ Con alcuni modelli Vie 20 
r istruzione 

PRINT^1, TAR(KK) B$ 
e simili, genera un SYNTAX ERKOK. 
Eliminare ì TAB. 


100 REM *** ASSEMBLER 6502-6510 *** 

1 10 : 

120 FRI NT "□"MNP UT "STAMPANTE D V IDEO " \ PG$ ! 149=4 = I FPC3$- " V *' THEM48 =3 
! 30 OFEM1 , WS SPR1NT#1 SPRINT# 1 

140 INPUT "DI STANZA COLONNE {CONSIGLISI MAX=12>";W7 
156 147= 12-W7 : I F LIB = 4 THENPR INT^U" 

160 SI2=25 tDIMSY$< SIZ > r Pt D< S IZ ) : OP*56 ! D IMOP5K OF > 

170 FOR 1*1 TOOF s READOPS< I > : NEXT I ... , 

180 READB$:PRINT#1 MAEK 20> 

190 REAPBS5 IFP$=" "THEN2605REM PASSI 
2O0 C$=LEFT$C B^ r ì > sL$ = MIOSK E$,£> 

210 "THEN190 

220 IFC$=*; "THENPC=FC + I 

239 I FCS= » = « THENGQSUB650 : PR I NT# 1 , B$ : GO TG 1 96 

240 IFC$~ fE E >r THEN3OSUB550 S PC =V * GOTO 190 
250 PC =PC + ! : GOTO 190 

260 RESTORE ! FOR I-0TOOPsREAOT^:NEHTX:PRINT#l SPRINT# 1 ! REM PASSH 
270 READB* 

£80 IFB$= " "THENPR I NT# 1 , IJ A PROGRAMMA SINTATT, CORRETTO MENO 
290 T =22 ! IFASCC > >63ANDA3C< B$)< 9 1THENT= 13 
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300 KK = T-W7 : C$=LEFT4K BS, 1 ) :L*=MID*< B*,2 > 

310 IFC*= "< "THENPRINT# 1 ,TAB< KK+20) “a”B*S G0TOS70 

320 I FC$ = * = “THENV =PC ! GOTD330 

330 I FCS=* <2 "THENGOSUB550: PC = V ! G0TO330 

348 IFC*="« "ORC^= "*"ORC*= ■ ' "THENLS= " . “ +B¥5 GQTO400 

350 IFC*= " J "ORC*= * , ,, DRC«=" + : , THENL*=B*tGOTO400 

363 GOSUB770 :L$=“ . $ “ +OPS : GOTO400 

370 IFL= 1THENL=0 :PR INT#1 ,TAB< KK - 10 >B*s RETURN 

380 PRINT# 1 ,TABC KK )B£S RETURN 

390 GOSUB530: PRINT» 1 , - a ,, V$ ,, l“ } SGOTQ410 

400 GOSUB4S0 

4 10 GOSUB370 : QOTO270 

420 C$=LEFT$C L$, 1 ) :L*=MID$< L$,2) SREM MEM.VAL. 

430 IFC*< >". "ANDC4K >"; "ANDC$< > " + "THENPR INT# 1 , "OPERANDO ERR . '*B*SEND 
440 GOSUB570 

450 IFC*= B +"THENV=V-C PC + 1 >: IFC V< BANDV >-123 >ORV > 1 27THENV =V +256 
460 IFC3K > " ; “AND< V< 0ORV >255>THENPR INT# 1 r "BYTE TROPPO GRANDE "B$s END 
470 H=1NT< V/256 > ’ V=V-256*H iPOKEPC , V ! PC = PC + 1 * GOSUB500 
4S© !FC*< >*; “THENRETURN 

490 V=H s POKEPC ,V : PC=PC+1 ! GQSUB50B : L= 1 S RETURN 

500 GOSUB590 iT*=VS! V=PC-1 ’• GQSUB590 ! PR INT# 1 , “a ,, V¥"H"T*; : RETURN 

5 10 v = 0 : REM ESROEC . 

520 T=ASC< V*)-48s IFT>9THENT=T-7 

530 V= 16*V+T: V*»M1D$< V*,2> s IFV$< > ” 11 THE N5 20 

540 RETURN 

550 GOSUBB0B ! I FURTI >0THENV=VAL5 L*) ! REM GET NUM. 

566 RETURN 

570 GOSUB6B0 ' IFUP/O0THENGOSUB670 ‘ REM GET VAL. 

580 RETURN 

530 V*=RIGHT*< " ■ +STR*( V ) ,5 > S RETURN: REM G1USTIF. 

600 UP/i=0:H*=LEFT*< L# , 1 > :L2$ = MIO$< L*,B J 
610 IFL 1* = "(4 " THENV = VAL< L2$> : RETURN 
620 IFL 1$= "¥”THENV*=L2*SG0SUB5 10: RETURN 
630 IFL1*=" * “THENV = ASC< L2$> : GOSUB850 : RETURN 
640 UFX= 1 ! RETURN 

650 IFSY>S1ZTHENPRINT#1 , “TROPPE LABELS ”B*tEND 
660 SY$< SY>=L$:AD< SY) =PC : SY=SY+ 1 SRETURN 
670 REM RIESAME 

680 FGR !=LENC LS)T01STEP-1 ST* = MID*C L», I , 1 > 

630 1FT*= " + "ORT*= " ” "THEN7 104REM ESAFE 
700 NEXT I : V = 0 ! G0TG730 

710 SVS=LEFT« L$, I -1 ) !L*=MID$< L*, I + 1 ) 

720 GOSUB550!L*=SV^s IFT$= " - "THENV=-V 
730 IFSY=0THEN760 

740 FORI=0TOSY-1 : IFSY$< I ) =L$THENV=AD< I)+V: RETURN 
750 INERTI 

760 PR INT» 1 , “LABEL NON DEFINITA “B*: END 
770 T$=LEFT3»< BS,3> !SFiF=MID$< B$+ “ ",4,2> 

780 FORI = 1TOOP :OP*=OP*( I > SREM RICERCA CODICE 
790 IFLEFT*< OP$,3 > =T$THEN820 
800 NEXT I 

810 PRINT# 1 , "CODICE SCORRETTO “BìiENO 
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820 FOR I=4T0LEN<; GP$>STEP5 t IFMIO*( OR*, I ,2 ) =SF*THEN840 
830 NEXTI : GOTO810 

840 TY$=MID$< OR*, 1+4, 1 > :OP$=MID$( QP$, I + 2 ,2 ) J RETURN 

850 IFMIO*< L*,£, 1 X > ORLENC L$ > =2THENRETURN 

880 V=RSC< M ID$< L2$,£ > 5 ; IFVOBHNOV >63THENV=V -84 
870 RETURN 

880 DATA "HOC 6D;X 7D;Y 79;. 65 . . X75 . <2X6 1 . EY7 1 , # 69." 
890 DATA "AND 8D;X 3D;Y 33;. 25 . . X35 . GX2 1 . ®Y3 1 . # 29.“ 


300 

DATA "A SL 

0E ; H 

iE; , 

06 * • X 1 S * A 0A~ Jl 


310 

DATA “SCC 

30 + “ 

, ,f ECS 

E0+ ,r t IF BEQ F0 + 

li 

320 

DATA *8 IT 

ac? , 

24 - M 

, " BM I 30+ * ^ " BNE 

00+ “ , "BPL 10+" 

930 

DATA "BRK 

00- * 

, H e ve 

5©+%"BVS 70 + 

Ik 

940 

OfiTfi “GLC 

I8 fc *' 

, ’CLD 

DS-%"CLI 58- 

* , “CLV B8-" 

850 

DATB-'CMP 

co;x 

DO: Y 

D9; . C5 . . X05.EXC l . GYD 1 .# C9.“ 

3G0 

DATA M CPX 

ec; . 

E4 .# 

E 0 * u r M CPY cc; , 

C4 C0 ■ H 

% 

970 

OPTA "DEC 

ce;k 

de; - 

C6, - XD6 * " , "OEX 

CA- " , "DEY 88 

380 

DATA “EDR 

4o;x 

5D ; Y 

531. 45. .X55.GX41 , EY5 1 .# 49." 

930 

OfiTfi" INC 

E£ ; X 

fe? . 

ES . . XFB ."/I NX 

E3- " , " INY C8-" 


1 000 

DATA “JMF 

4c;0 

eq; tf 

, "JSR 20 ; * 


1010 

DATA IJ LCIfi 

ad;x 

bd; y 

B9; . (Ì5. .XB5.GXH1 . EYB 1 .# 

A3, " 

1020 

DATARLO* 

ae;y 

be; p 

(= 16 . . YB6 . # f>2 . " 


1030 

DATA " LD Y 

ac ; X 

BC " » 

ft4 . . XB4 . # A0 . “ 


1040 

DATA ”LSR 

4E;x 

se ; - 

46 . .X56.P 4P- " 


1050 

DATA “NOP 

E A” 11 




10G0 

DATA "ORA 

od; x 

i □; Y 

19; . 05. .X 15.6X01 , GY1 1 . # 

03, J * 

1070 

DATA " PHA 

48- M 

, "PHP 

08- " r “ PLA 6S-" ,”PLF 28 - " 

1080 

DATA "ROL 

se?x 

se ; , 

26, » X36 . A 2A-" 


1030 

DATA “POR 

se; x 

?e; . 

B6p .X76. A 6A-" 


1 100 

DATA "RTI 

40 

, "RTS 

60 - ” 


1 1 10 

DATA °SBC 

ED; X 

fd; y 

F3; . E5- > XF5 . ©XE 1 .(2YF 1 . f* 

E3, 11 

1 120 

DATA "SEC 

33 - u 

, "SED 

F8- " f J 'SE 1 78-“ 


1 130 

DATA "STA 

8D;x 

w 

a 

Ni 

< 

93; . 85 p - X95 P ©X81 - (2Y3 1 . " 


1 1 40 

DATA ”5TX 

se; . 

86 * . 

Y96 p " 7 " ST Y 8C ; , 84' , , X34 p 

» 

1 150 

DATA fc, TAX 

AA- ** 

, sl TAY 

A8 - " , D TBX BA-" 


1 180 

DATA ” TX A 

SA - * 

„ n TXS 

9A r ,f TYA 38- 11 


1 IBI 

■ 

A 






1162 REM *** INSERIRE IL PROGRAMMA IN CODICE MNEMONICO 

1163 REM *** SOTTOFORMA DI DATA A PARTIRE DALLA RIGA 

1164 REM *** 1170. RICORDARSI CHE IL PRIMO DATA CONTIENE 

1165 REM *** IL NOME DEL PROGRAMMA. 

1 1S6 : 

1170 DATA" INVERS IONE SCHERMO" 

1 130 OATAG1024, =CRT,®2 , =PTR ,® 123 , =B IT7 ,£326 , = TOP 

! 193 DATALDA , ; CRTADR ,STA . „ . PTR ,LDA , ; CRTAOR + 1 ,STA. , . PTR+ 1 ,LOX#,#0 
1200 DATA=OUTER,LOY#,#0,=INNER,LDA®Y, .PTR 
1210 DATACMPH, ,BEQ , +SK !P,EOR# , . B I T7 

1220 DRTASTAGY, . PTR , =SK IP , INY,CPY# ,#250 ,BNE , + INNER ,CLC ,LDfì . , .PTR 
1230 OATAADC# ,#250 , STA . , . PTR ,LDA . , . PTR + 1 ,ADC# ,#0 ,STA. , .PTR+1 
1240 DATA INX ,CPX# ,#4 ,BNE , +OUTER ,RTS , =CRTAOR , ‘ CRT 
1250 DATA"”' 

READY. 
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COMMODORE 64 


Generatore 

I BLn : :s/ a 


Suonate qualche strumento? 
Questo programma vi fornisce la 
“base” ritmica per le vostre 
esecuzioni musicali 


uesto programma è un semplicissi- 
mo generatore di ritmi che gira sul 
Commodore 64. I ritmi che si possono 
generare sono 4: Valzer, Swing, SIow 
rock e Disco, 

Appena dato il RUN ? verranno vi- 
sualizzati ì 4 ritmi disponìbili e verrà 
chiesto quale di essi riprodurre. 

Fatta la scelta > verrà richiesta la ve- 
locità di esecuzione del ritmo stesso. 
La velocità ottimale per Valzer e 
Swing è 250, per io Sìow rock è 200, 
mentre per il Disco è 350, Per fermare 
il ritmo in esecuzione è sufficiente te- 
nere premuto un tasto finche non ri- 
compare il quadro iniziale. 

Il programma è scritto interamente 
in Basic e si presta pertanto facilmente 
a modifiche e miglioramenti. 

Buon ascolto. 



100 REM *** GENERATORE Di RITMI *** 

110 REM *** BY MARIANI GIANCARLO *** 

1£0 REM *** TEL. 036S77B565 *** 

130 : 

140 PQKEi9S,0 SPRINT "LfiMGENERATORE 01 RITMIMI" 
150 PRINTM) VALZER" 

160 PRINT-E? SWING" 

170 FRI NT 11 3 ) SLOW ROCK * 

180 PR I NT w 4 ) DISCO” 

130 INPUT" SMODALE C 1 -4 5" ; A : I FA< 1 ORA >4THENRUN 
£00 ONA GOSUB £40,370,480^590 
£18 RUN 
££0 S 

£38 REM *** VALZER *** 
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840 

850 

asm 

870 

890 

890 

300 

3 10 
3E0 
330 
340 
350 
360 
370 
3S0 
330 
400 

4 10 
436 
430 
440 
450 
460 
470 
430 
430 
500 
510 
580 
530 
540 
55© 
5S0 
57 © 
530 
530 
600 
G 10 
880 
63© 
840 
650 
660 
670 
680 
890 
700 
710 


GOSUB710 

GQSUB690 

IFPEEKC 197 X >64TH£NG0SUB69© = RETURN 
POKES + 34 , 10 : POKES +5 ,3 : POKES+6 ,0 
FORL® ITODR/'l .8 INEXT 
FQRK-1TOE 

POKES + 1 , 7 : POKES ^ 4 ? POKES+4 , IS9 
FORL= ITODRi NEXT 
POKES+4 , IE3 

NEXTK : POKES +84 ,0 : GOTO870 

1 

REM *** SWING *** 

GGSUB7 1 0 
GOSUB690 

IFPEEKC I9?>< >64THENGQSUB690: RETURN 
POKES +E4 , 10 J POKES +5 ,9 ; POKES+6 r ® 
FORL = 1 TODR/^1 . 3 * NEXT 
POKES+ 1 ,7: POKES ,4 : POKES +4 , 189 
FORL - 1 TOOR ! NEXT 

POKES + 84 ,0 : POKES+4 ^ 138=60X0400 

# 

• 

REM *** SLOW ROCK *** 

PR 1KTT “LB» » ■ ■■ — 3 SLOM ROCKIW" 

G0SUB7 I 0 : GDSUB690 

IFPEEKC 197 >< >64THENGOSUB690! RETURN 
POKES +E4, 10iPQKES+5,9=P0KES+6,0 
FORK- 1TQ6 

HF =45 * IFK-4THENHF -60 

POKES + 1 r HF = POKES *4 s POKES+4 t 189 

FORL- 1 TQDR s NEXT 

POKES+4 , 1 E3 t NEXTK ! GOTO 500 



REM #** DISCO *** 

G0SUB7 10 = GOSUB690 

IFPEEKC 197 >< >04THENGOSUB690ì RETURN 
POKES +34 , 10 ; POKES +5 ,6 = POKES+6 ,855 
POKES+ 1 f 30 ! POKES , 5 s PDKES+4 , 129 

FORK = 1 T08 * POKES + 1 , 3© = FORL- 1 TODR/86 = NEXTL , K s POKES+4 , 128 
FORL = 1 TO 10 = NEXT 

POKES +5 ,9 = POKES+6 ,0i POKES + 1 ,7 t POKES r 4 
POKES + 4 , 1 29 s FORL = 1 TQDR/3 f NEXT 
POKES + 4 , 1 SS ! G0T06 1 0 

S = 54378 : FORL =&ST0S +34 : POKEL ,0 : NEXT = RETURN 


PRINTTRBC 18 > ,f £56 " 


780 1 NPU T " Q/E L OC . < 1 85 -E 000 3 11 s OR 
730 RETURN 


READY, 


•4 . ; •• : • '• i t v ... .* > . . ‘ . 

• . . . . • 


l .v.i , r 
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Un gioco che richiede grande 
abilità e che è basato 
suW alterazione del vettore 
dell interrupt 

G li in ter rupi del Commodore 64 non 
sono più un mistero dopo ^articolo ap- 
parso sul mimerò 13 di questa rivista. 
Ecco qui un semplice giochino che ma- 
nipolando il vettore di interrupt situato 
nelle locazioni 788 e 789* vi permette di 
controllare Tino ad 8 SRRlTES (uno del 
giocatore e sette “nemici 1 *). 

Come si gioca 

U na volta dato il RUN, ci sarà da at- 
tendere un pò* di tempo, durante il quale 
il computer leggerà i DATA delle routine?? 
in L.M. e degli Sprites. 

In seguito lo schermo cambierà colore e 


dopo una hreve presentazione verrà chie- 
sto il grado di difficoltà. Prenderà quindi 
il via il programma vero e proprio, e vi 

troverete proiettati negli spazi siderali a 
le hi vare disperatamente terrificanti 
asteroidi. 

i 

La vostra velocità di spostamento rad- 
doppia se premete il tasto FIRE, e se prò* 
prie le cose dovessero mettersi male, po- 
tete sempre sperarci nello Sprite 
Energetico. 

E* uno strano affare, con una E nel 
mezzo, che, non appena toccato, elargi- 
sce una bella unità di energia (lo stato 
energetico della vostra astronave è sem- 
pre visualizzato nella parte alta dello 
schermo, mentre a destra uno speciale 
radar vi tiene informati sulla attuale posi- 
zione del settore). 

Attenti però a non toccarlo quando an- 
ch'esso è in contatto con un 1 asteroide; in 
tal caso esplodereste senza tanti compli- 
menti. 

Appena finite il settore viene visualiz- 
zato il punteggio parziale, il numero di 
settori percorsi, dopodiché si riparte con 


velocità e difficoltà maggiori. 

Fatelo da voi 

Ije routines in L.M. del programma 
pubblicato, possono essere usate per rea- 
lizzare altri giochi. Le linee da “conser- 
vare” sono quelle dalla 0 alla HI 
compresa. 

Qui di seguito e*è l’elenco dei registri 
utilizzati dalle routines io L.M. E f suffi- 
ciente modificarli a seconda delle 

esigenze. 

- LOG 674: se il contenuto di questa loca- 
zione è due, viene eseguito lo scroUing 
dello schermo verso il basso da interrupt. 
Qualsiasi altro valore inibisce 
Pope razione. 

- LOC 675: non ci Interessa (viene utiliz- 
zata dalle routines). 

- LOC 676: velocità massima di sposta- 
mento (in pixel) dello sprite del giocatore. 
Normalmente Lo sprite del giocatore si 
muove alla meta di questa velocità, men- 
tre per ottenere la velocità massima biso- 
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gna premerti il tasto LIRE. 

- LOC 677: se questa locazione contiene 
il numero due* la posizione degli sprites 
“ostacolo” viene determinata automati* 
eminente dalie rotiti nes in linguaggio mac- 
china (nota: perchè questo sia possibile 
bisogna anche attivare ^oscillatore della 
voce tre - con una POKL 54272+ Ili, 129 - 
c settore almeno il byte basso della fre- 
quenta della voce tre * con una PO- 
KE54272+18jN - con N naturalmente 
compreso tra I e 255), 

- LOC 6H8: se è settata a due, la posizione 
X dello sprite ostacolo viene posta uguale 
alla posizione X del lo. sprite del giocatore. 

- LOC 690: contiene un numero compre- 
so tra I e 40 (mai 0, mi raccomando) che 
indica quanti caratteri per linea a partire 
dal margine sinistro dello schermo biso- 
gna scrollare verso il basso. 

■ LOC 691: contiene un numero compre- 
so tra I e 24 (e mi ri- raccomando, mai 0) 
che indica quante linee dello schermo a 
partire dal basso bisogna scrollare (il nu- 
mero dì caratteri per lìnea è determinato 
dal registro precedente), 

- LOC 694:se il contenuto di questa loca- 
zione è due, significa che c’è stata una 
collisione tra voi ed uno sprite ostacolo (e 
vi accorgerete di questo anche perchè le 
routines in linguaggio macchina si disabi- 
litano automaticamente). 

Consiglio per verificare le collisioni; 


una volta che due sprìtes si sono scontra- 
ti, che la collisione è stata rivelata, che è 
stata eseguita una opportuna routine di 
collisione, che gii sprìtes sono stati rimessi 
in posizione «dì partenze- , ricordatevi di 
azzerare o rileggere ancora una volta il 
registro di collisione (V +30). Questo per- 
che dopo che il contatto è stato verificato, 
anche se effettivamente non avvengono 
altre collisioni il registro di collisione con- 
tinua a segnalare quella precedente, fin* 
chè o viene riletto ( nel qual cavo si azzera 
automaticamente) o viene azzerato. Ri- 
cordatevi questa semplice operazione pri- 
ma di ricominciare a giocare. 

- LOC 695: contiene il valore massimo 
raggiungibile dalla ascissa del giocatore. 

- LOC’ 6%: contiene il valore minimo 
raggiungibile dalla ascissa del giocatore. 

- LOC 697: contiene il valore minimo 
raggiungibile dalla ordinata del 
giocatore. 

- LOC 69K: contiene il valore massimo 
raggiungibile dalla ordinata del 
giocatore. 

- LOC 700: se il contenuto di questa loca- 
zione è due, gli sprìtes osta colo vengono 
mossi. Qualsiasi altro numero invece li 
blocca. 

- LOC 701: contiene il numero di sprites 
ostacolo secondo la seguente formula; nu- 
mero da pokkare — Numero Sprites mol- 
tiplicato per due. 


- LOC 702; questa locazione contiene la 
posizione X degli sprìtes ostacolo; a se- 
conda del contenuto della locazione 677. o 
dovete indicarla voi, o et pensa la ROUTI- 
NE in L.M. (con il numero casuale e la 
coordinata X del giocatore). 

- LOC 703; contiene la velocità di discesa 
(in pixel) degli sprites ostacolo. 

Attenzione che le coordinate X degli 
sprìtes ostacolo vengono -attualizzate 
sempre quando questi hanno coordinata 
Y “0. 

Rotiti nes in L.M. 

SYS 4%34: abilita Je rwtìnes di controllo 
sprìtes in interrupt . 

SYS 49621: riporta il vettore di interrupt 
ai valori normali (esclude le routincs). 
SYS 4965(1: fa uno scroti del video verso il 
basso (come spiegato più sopra la cosa 
può essere automatica). 

SYS495GH): genera un 'esplosione. 

E per finire 

Per disabilitare gli interrupt da Basic, 
il sistema più semplice è 

POKE 56333, 127 
per riabilitarli 

POKE 56333,129 

Ricordatevi che il Joystick va inserito 
in porta due, 


100 REM* ********************* ******* 


110 REM*** ASTEROIDI **** 
120 REM*** PER COMMODORE B4 **** 
1 30 REM*** BY **** 
140 REM*** ENRICO SCELGA **** 
150 REM*** VIA MAGENTA 180 **** 
160 REM*** MILANO **** 
170 REM*** TEL. 02/24 75 129 **** 


130 REM* **************************** 

130 INPUT” JVELOtN ASTRONAVE ( 0-255 > " ; X : PQKES76 ,X 

260 DATA 173 r 183,2,56,205,0,208,176,3, 141 ,©,208,56, 173, 184,2,205 ,0,208 
eie DATA 144, 3, 141 ,0,203. 173, 135 ,2 ,56 ,£05 , 1 ,233 , 144,3,141,1 ,208, 173,186 
220 DATA2 ,56,205 , 1 ,203,176,3,141 , 1 ,203, 173,30 ,208,41 , 1 ,240,3,76 ,215 
230 DATA 192 , 173,0,220,4 1 ,31,141,163,2,168,16,44,133,2 ,240,9, 173,164 
240 DATA2 ,24 , 74 , 168 ,7S , 86 , 192,173,164,2,168, 169,2,44,163,2,208,6,238 
250 DftTAl ,293,76,109, 192,169,1 ,44,163,2,208,3,206,1,208,169,8,44,163 
£60 DATA2, £08 ,6,238 ,0 ,208,76 ,132,182,169 
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270 DATA4 ,44 , 163,2,203 ,3 ,200 ,0 ,208, 136 ,20S 

230 DATA2B? ,173,182,2,201,2 ,203,3,32,242 , 133,173, 165,2,201 ,2,208 
230 DATA3 , 32., 226 , 132,173,1 ,203,73,255, 141,0,212,183,4,141 ,1 ,212,163, 15 
300 DATA 14,1 ,24,212, 163,240, 141 ,G ,2 12 , 14 1 ,13,212,189,123,141 ,4,212, 169 
310 DATA4 ,141 ,7,212, 163, 12, 14 1,3,212, 173, 1 ,203, 141 ,5,220, 173, 183,2,201 
320 DATA2 , 203 ,3,32 , 1 36 , 1 34 , 76 , 43 , 234 , 32 ,2 1 3 , 1 33 , 1 63 , £ , 14 1 , 1 82 ,2 ,76 
330 DATA49 ,234 ,173,27,212,141,130,2,96,0 
340 REM** ***************************** * 

350 REM* * * ****ASTERO IDI MOVE*********** 

360 REM* ************* ****************** 

370 REM******-* *********** ************** 

3S0 DATA 173 ,183,2,201 ,2,203,45 ,173,133 

330 DATA2 , 56 ,20 1 ,15,176,37,173,176,2,201 ,2,203,6, 173,0,203, 141,190,2 
400 DATA 172 ,191,2,174, 189,2,254 , J ,20S ,20S,6 , 173 , 130,2, 157 ,0,203,202 
4 10 DATA202 ,203,24 1 , 136,203,235,36 ,0 
420 REM* **************************** * 

430 REM* * SCRQLL ********** 

440 REM** AL CONTRARIO ****** **** 

4 50 REM********* ********************* 

480 REM****************************** 

470 DATA 173 ,173,2,56,201,25,144,5,163,24,141,173,2,201 ,0,203,5 ,163,24 
480 DATA 14 1 , 173 ,2, 173, 173 ,2 ,56,201 ,4 1 

438 DATA 144 ,5,163,40,141,178,2,201 ,0,203 ,5,163,40,141,173,2,163,131 

506 DATA 133 ,243 , 133 >253 ,163,151, 133,247 

510 DATA 133,251 ,189,7, 133,243, 133,250 , 169 

520 0ATA2 13 , 133,252, 133,254,174 ,173,2,172,178 

530 0ATA2, 177,247, 145,243, 177,251 

540 DATA 14 5,353, 136,203,245,202,240,27, 134,2,162,0,131 ,247,56,233,40 
55B DATA 149 ,247 , 176,2,214,243,232,232,56 
560 DATA224 ,3 , 144,238, 166,2,76,57, 134,96,0 
570 REM* ****************************** 

580 REM*********EXPLODE***** ********** 

530 REM#***ANP INTERRUPTS************ ** 

600 REM****** ************************* 

6 10 DATA 169,0, 162,24, 157,0,212,202,203 

620 DATA250 ,163,15,141,24,212, 169,240 ,141,6,212,141,13,212,141,20,212 
636 DATA 163, 129, 141, 4, £12, 141, 11, 212, 141, 13, 212, 169 ,0,141, 181, 2, 163,5 
648 DATA 14 1 ,182,2,169,0,141,130,2, 162,255, 160,255, 163,13,141 ,243,7, 173 
650 DATA 18 1 ,2,238 ,161,2,141,0,212,141,7,212,141,14,212, 136,203,233 ,233 
660 DATA 132,2 ,173,182,2,141,1,212,141 
670 0ATA3 ,£12, 141 , 15,212,238, 138,2,201 

638 DATA 15 ,208,5 , 163 ,0 , 14 1 , 130 ,2 , 173 , 180 ,2 , 14 1 ,33,203,202,233 ,195,163 
690 DATAI 1,14 1 ,243,7,234 , 1 20 , 169 ,49 , 1 4 1 , 20 ,3 , 163,234 ,141,21,3,33,36 
706 DATA 120, 163,0, 14 1 ,20,3, 163, 132,141 ,21 ,3,38,36,0 

7 10 F0RX = 43 152T04S385 : RE AD A: FOREX, A s CS=CS+A i NEXT 
720 FORX = 49800TO49353 : REAOA : PPKEX , A * CS=CS+A ! NEXT 
730 FORX-43650TO43766 : READA ! POKEX ,A ! CS=CS+A : NEXT 

740 FGRX=43500TO43S47 : READA : POKEX ,ft : CS=CS+A : NEXT: PRINTCS 

750 TFT A.: 7R747PTHFNPR INT' ^jaeMBMIgBiaMIE RRORE NEI DATA: CONTROLLARE” 

760 RE M* **+-*** + + $** * + **##** + * 

770 REM***SPRITE ASTRONAVE ##**** 

780 REM** * * * # * * * * * *** 51= * * * * * * * t t * 
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790 datag , 40 , 0 , 0 , 40 , 0 , 0 , 40 , 0 , 0 , 170 , 0,0 

800 DATA 1 70 ,0 ,0, 170,0,2, 190 , 183 ,£ , 1 30 , 123 , 10,255 

310 0ATA160, 10,255, 160, 10,235, 180, 42, £35 

820 DATA 168, *42, 235, 1GS, 170, 1-70,170, 170,40, 170 

330 DATA 170,40, 170,169,20,106,181,88,74,0,0,0,0,0,0,0,0,0 

340 REM* ************************ 

850 REM* * *SPR I TE ASTERO ILI****** 

8S0 REM * ************************ 

370 03730,255,0,2, 175,132, 15,223, 123,11 ,3 1 ,224, 127,255,240,63 , 1 1 ,203 
330 D3T363 ,211 ,224 ,31 ,255 , 132 , 15,213,224 ,27,237,224,25,255,240 , 127,243 
330 D3T3243 ,170,137 ,252 ,255 ,255,254 ,255 
300 D3T3255 ,255 , 127 , 106 ,243,53 ,255 ,232,31 

9 10 O3T3206 ,240v 15,255 ,224 ,7 ,255 ,132,15, 123 , 123 
320 REM* ******************************* 

330 REM* * * * * *SPR I TE IN MEMORIA ******** 

940 REM* ******************************* 

850 FORX=704T07G6 '■ READA : POKEX ,A : NEXT 
360 FORX =3©!0TOt0££ è READA? POKEX ,A: NEXT 
370 F0RX=336T0353:READA :POKEX ,A :N£XT 
330 FORX =63270894 : READA : POKEX ,A:NEXT 
330 SC =0 : CS = I : V =53248:31 =54272 

1000 60 SEte 1 6 1 04 REM *** FINE PRESENT, E PREPAR. SCHERMATA *** 

10 10 T I ^ = "000000 " 

1020 AOi="H " !flSÌ= "Sia " 1REM 31 SPAZI 

*1030 REM****AB ILITA GLI***** 

1040 REM**** SPRITES ***** 

1050 POKEV+28, 1 tPOKEV+37 ,7! POKEV+33 , 14 : POKEV+39,2 
1080 POKE2040, I I : FORX =204 1 T02044 : POKEX , L51NEXT 

1070 LE = 1 : FORX =V *4070 V +43 : POKEX ,LE ; LE =LE + 1 : NEXT ! REM *** COL . ASTERO 1 0 I 
1080 POKEV+32,0: POKEV+33 ,0!POKEV, 120SPDKEV+ 1 ,225 i REM**POS I Z . ASTRON, 

1030 FORX =2T08STEP2 ! POKEV+X ,70: NEXT: REM* **X ASTEROIDI*** 

1 100 F0RX = 3T09STEP£ tPOKEV+X ,X*2S : NEXTi REM***Y ASTEROIDI **** 

1110 POKE?00,2: POKE70 1 ,8 : P0KEG88 ,0 : POKE703 ,0 1 : REM* **REG ISTR I C ROUT 13 
1120 P0KEG95 ,240 ! P0KEG96 ,30 : P0KE69? ,30? P0KE699 ,240'* REM *** LIMITI ASTRON. 
1130 GOSLIB80 10 
1140 POKEV+30,0 

1150 P0KE630 , 32 : P0KE63 1 ,23 : REM**L IMIT I 3CR0LL CONTRARIO 
1 160 5YS49634 : P0KEB74 ,0s P0KE694 ,8 :R0KEG?7 ,2sP0KEV+£ 1 ,31 
1170 PQKES I + 18 , 129 : POKES I + 15 , 12 ! REM* * * INIZIALtZZA RND **** 

1 130 FORX=22T02STEP~ 1 • D I S D 1 + • 2 » POKE703 ,0 I 
1 190 AS^=LEFT^( AS*,LEN< AS*?-1 ) : PR INTAS$ + A03? 

1200 IFLENS AS*K3THEN1470 

1210 FORY = 0TO20: IFREEKa 834 > = BTHEN1 370 

1220 P0KE 1 024 +< X*40) +35, 1 13 s P0KES5236+( X*40>+35 , 1 

1230 RN=RND< 1 ) *32 ìPOKE 1 104 +RN,4S!P0KE55376+RN,? ! SYS496S0 

1240 IFRNJ3 1 THENFL = 1 

1250 IFFL = 1 THEHG03UB 19 10 

1280 SC = SC + 12+01 -PEEKl V+l >/32: IFPEEKC 56320 > AND 1 6=0THENSC=SC-3 
1270 IFFL= 1 THEflGOSUB 1910 
1230 NEX1TY : G0SU82 100 : NEXTX 
1230 SYS4962 1 » POKEV + 2 1 ,0 
1 3O0 REM**:****** ************ 
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1310 REM**** FINE ******* 

1 330 REM******************** 

1330 f r i nt h i ne settore "cs 

1340 PR I NT " WWMF UNTE G G I 0 “ I NT< SC ) ! CS = CS + l 
1350 FORDE = 0703000 * NEXT 

1360 DOT01020 . .,.. (¥ . u If ;t . „ v - 

1370 SYS49SS 1 ‘ P0KE56325 r 55 e I FPEEKC V + 30 ? " 1 29THEN 1 320 

L 330 P0KEV+2S ,0* SYS49500! POKE2040 , 13 :pQKEV+23, 1 £R0KEV+£9 , 1 

1330 FORK= 15TO0STEP-1 5 POKES I *24 ,X s FGROE“0TO60 5 NEXTOE 

1460 POKEV +23 r0:POKEV+E3 ,0 SROKEV+El ,0:FORP=0TO8 

14 10 PR I NT * ^MW>>PPPWWWifIi*WMWPPia[ "OLL S S I ONET 1 

1420 FpRPF =0TO40 ■ JJJEXT 

143B PR 1 NT ” I S I ONE »■ ! FORPP =0TO40 s NEXTPP , P 
1440 AS^ = LEFT^C AS*,LEKk AS4?> -1 J è IFLENC AS$>< 3THEN147B 
1450 PR INT **2" 

1460 GOTO 1030 


1476 

1490 

1490 

1500 

1570 

15E0 

1530 

1540 

1550 

1560 

1570 

1580 


p r i nt " LimpmPMmMMiiiiig i- 


M ■■ 
■4 " 


SYS4362 1 ì P0KE56325 , 55 * POKEV +2 1 ,0 i FORP=0TG20 

T 1$=LEFT$( TIS,£:> + " : "+MI-DSK TI*,3,B)+ 1 GHTS< TI*,2> : F0RF =0TO20 

pr t mt 1 f t nt score "1NT<sc>“ 

pr i nt » Bmmmmmmmm mm tempo settore "csìforpf^ototosnext 

pr i nt J| a» ■ ■■ w » r i ne score “inkso 

FRI NT '* UUHim TEMPO "Tl* rt SETTORE " CS * FORPP-0TO70 i NEXTPP , P 
PR INT M S ff U 0 I R 1 TENTARE*" : FQRC=0TDS0 : NEXT 

GETA^i IFA-tój > w H THEM ! 560 

pr i mt - i r i tentare h j forc^btogoinext 


GETA$s I - " Jf THE NI 550 


1530 
1600 
1610 
1 GEO 
1630 
1648 
1650 
1660 
1670 
16S0 
ISSO 
1700 
1710 
1720 
1730 
174 0 


lFfWf= *S'*THEN9p0 
END 

POKEV +39 > 3 * POKE204 0 ? 1 1 

PR INT^LT ' POKEV +2 1 > 1 = POKEV , 07 POKEV + 1 ,0 
SYS49621 * GOSUB 1740 

PQKEV+32 ,S:P0KEV+33 , 6 : FORO =0TO 10 

FORDE a 0TO40 i NEXT 
PR INT " 


ID R A C E Jh 

FORDE -0TO40 : NEXTDE , D : FORC=0TO£55 : POKEV ,C = POKEV* 1 , C : NEXT 
IhPUT^ IililKD lFF ICQLTfK 1-8)NDI! IFDI >80RDI< 1THEN1680 
POKES 1+24 , 15 sFpKES 1+7, 3: POKESI +8,4! POKES 1+13,240 
FORC=255TO0BTEP- 1 TPOKEV+1 ,CS NEXT 

POKESI+24 , 15 ; POKES 1+7 f 3" POKES I +8 4 * PQKES I + 1 3 / £40 s POKES 1 + 18,12? 
POKEV+S 1,31 s RETURN h 

primt-m^i n m n ri n 


1750 

PR INT"| t 

t 1 

1 1 

1 ì 

1 1 

f r 

\ i 

H m 

y 

1760 

PR IIMT"! J 

1 \ 

LhUBhJì' 

li i 

i j 

LJi 

LJ 

u 

1770 

FRI ITI 

mmmmamassssm 1 ' 

■ 

# 




1700 

RR INT | 1 

1 1 

m 

m 

r ~ ì 

rn 

n 

p ■ 

J 

1790 

PR IHT"I i 

f t 

I I 

i t 

1 i 

1 ! 

1 ! 

14 l 

r 

1300 

PR !MT"t 1 

1 1 

LJ 

i [ 

LJ 

LJ 

LJ 

rnm w 


1010 RETURN , • 

1 320 REM******* **************** 
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1830 REM* * * AUMENTO ENERGIA *** 

1340 REM*** * ***** ;# ********** * ** 

1858 FORT=0TO12 

1383 FORO "0 TQ 158TEP4 i P0KEV+37 £ POKEV+38 ,D+ 1 r - POK E V + 3 9 , D +E : FOKEV +48,0+3 
1378 PGKESI +ft ,D* 17 iNEXTD AS*=AS*+ lp 
1S88 IFLETK ASSO >33THEMAS*"LEFT^ ASS,33> 

1830 FOKEV+I5.0=P0KEV+30^0!POKES94^0 

1308 SYS 4 3634 £ GOTO 1220 

1318 REM************************ 

1328 REM*** MUOVE SPR I TE ******* 

1938 REM*** ENERGETICO *******, 

134 0 REM* ********************* ** 

1958 FOKEV+a 1 , PEEK< V + E 1 >0R 188 
ISSO POKE2047,14 

1370 I F P E E K. < V + 15 > =0THENPQKE V + 14, :RNDv l > *855 ì FL=0 
1980 IFFEEKC V+ 15 X S55THENP0KE V + 15 ,PEEK< V+i5> fi a SOTO2000 
1330 POKEV+15,8 
2000 RETURN 

2010 REM*** ****************** **** 

2020 REM**** RADAR ****** 

R 

2030 REM* ************************ 

2850 FR 1MT” J" <-3P*+ J, XJ 

2060 FORy = 1TQ23 £ PRINTSPS+ fi 13 fi";=NEKT 


2870 RpINTSP*+ ,, aa Pillili " ; tPRlMT 

2OS0 POKE2023 , ISO ! PQF.E5S235 , 8 J 


2G30 pr i mt » sp s j| *mnnifia fi M : return 

2180 RE M* ****************** 

2 110 REM*** w BEEPER ***** 

2120 REM* ****************** 

2 130 P ORE 1024 M M*40 ? +35 , I 13 5 PQKE55236 + C X*48> + 35 r 0 


2 140 FGKE3I + ì 1 , 33 £ FORDE “0T020 : SYS 4 3650 £ NEXT : FGKES I + 1 1 ,0 
2150 RETURN 

2 1 SO REM* ************************ 

2178 REM*** CONTINUAZIONE ******* 

2199 REM*** DATA SPRITE ******* 

» 

2130 REM ************************* 


2280 REM***SPRITE ENERGIA ******* 

22 10 REM* ************************ 

2220 OATAO, 0^0 ,8,0,0, 0,255,0/ 1 , Ì£B , 123, 1 r 123 r l£8, 1 , l £9 , 1 28 , 3 , 0 f 1 92 
£230 DATA3,0, 193,3 , 126, 193,3,96 , 193,6 ,96,96,6, 124 ,96,6,96,90,6,90,36 
2240 DATAG , tee, 96, 12 ,0 ,48 ,24 ,0,24 ,48,0, 12,96 ,0 ,6 , 132 ,0 ,3,255,255,255 
£258 REM**************.*********** 

2260 REM*** SPRITE BUM ******* 

2270 REM* *********************** * 


2280 DATA0 ,0,0, 30 ,39 ,0 ,243 ,39 ,0,131,51 , 123,133,177,128,193,177,132,67 

2230 0ATA24 ,192,1 10,24 , 132, 120,24,224 

2306 DATAI 1 t , 15,224,32, 195 , 152 ,48 , 1 92 ,56 ,48 

23 10 DATA 192 ,112,43, 133 , 176 , 19,206,43,30,24 ,48,0,43,63,0,192,7,1,128 
2320 DATA15,0 ,0 ,23 ,0,0,56 




READY* 

..... . . i ... . . Ju3 — - 
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La Prospettiva 

in Basic 


Danilo Toma è un nome che gli affezionati lettori di Commodore Computer Club già conoscono attraverso un 
paio dì listati pubblicati in precedenza. 

Studente di Economia e Commercio alla Bocconi di Milano (Università che non consente, come è noto, di 
sottovalutare!' impegno negli studi), si diletta, nel raro tempo libero, di esaminare l'anatomia del Commodo- 
re 64 partecipando a confermare V aggettivo di “incredibile” scelto in una campagna pubblicitaria per il 
popolare computer. 

Figurarsi, dunque, la sua delusione quando venne a sapere, tempo fa, che entro breve termine la 
Commodore avrebbe messo in produzione nuovi modelli dotati di Istruzioni Basic che consentivano di 
facilitare la programmazione in alta risoluzione (Commodore Plus 4 e 16), Toma, infatti, aveva dedicato 
parecchio tempe per realizzare le routine grafiche pubblicate sul uumero 10 di C.C.C,, e che, a proposito, 
hanno riscosso notevole successo presso ì nostri lettori. 

La delusione principale era però rappresentata dal fatto che il Commodore 64, acquistato con sudati 
risparmi, rischiava di ammalarsi di quella malattia tremenda e irreversìbile che è solita colpire, prima o poi, 
tutti ì computer: l’obsolescenza. Dopo alcuni momenti di panico ecco però che viene in mente un’idea: 

“Perchè non studiare nuove routine grafiche capaci di offrire, ancora col Commodore 64, qualcosa che 
nessun computer possiede? Perchè non dare, cioè, un’istruzione capace di creare, da Basic, la prospettiva e, 
con essa, nuove possibilità?’*. 

Lo sviluppo di tale idea, lo vedete, in queste pagine, concretizzato nei programmi pubblicati. 

Le possibilità offerte possono essere esaminate dai semplici listati dimostrativi. 

Dopo aver digitato il programma, e ammirato le sue potenzialità, crederete davvero che il vostro 
Commodore 64 sia qualcosa meno che “incredibile”?... 


Dopo aver digitato il programma, registratelo, su nastro o disco, prima di dare il comando RUN. Solo in 
seguito a tale operazione controllate, come descrìtto nell’articolo, !a corretta trascrizione. 

Se tutto è in ordine, vale a dire se non vi sono segnalazioni di errore, è possibile cancellare il programma 
(NEW) e digitare i listati dimostrativi. 

Ricordarsi che, prima di utilizzare programmi dotati delle nuove Istruzioni, è ovviamente indispensabile 
caricare t) programma principale e farlo girare almeno una volta. 


Alessandro de Sì mone 




JS e nel digitare ì 717 DATA della prece- 
dente puntata non vi è venuto Pcsauri- 
mento, non rallegratevi troppo: ora i data 
sono circa 2000! E come al solito dovete 
copiarli con estrema attenzione perchè 
rappresentano delle routine* in Lingua- 
gin macchina. 

Questa volta però ho fornito il pro- 
gramma eqricatore di una serie dì “con- 
trolli di somma” che mostrano anche in 
quale gruppo di linee si trova l'errore. Il 
sistema non è completamente sicuro: ba- 
sta che in uno stesso gruppo di linee i data 
errati portino ad una somma complessiva 
uguale a quella di controllo e non verrà 
segnalato Terrore. Se invece il program- 
ma sì ferma con un “ILLEGAL QUÀN- 
TITY” avete sicuramente dimenticato la 
virgola tra due data. Poiché i data non 
vengono “pokati” in memoria se sono 
negativi o maggiori di 255, viene segnala- 
to Terrore citato. Battendo PRINT 

PEEK(6J)+PEEK(64)*25ó;A 
e premendo RETURN otterrete il nume- 
ro di linea e il valore del dala incriminato. 

L’altro tìpico errore,, “(JET OE DA- 
TA”, non dovrebbe più venire fuori. 

parziale consolazione degli affezio- 
nati che hanno già copiato la prima ver- 
sione delle routines, apparsa su C.C.C, 
n- 10, posso aggiungere che ho cercato di 
mantenere invariate, ove possibile, le 


vecchie routines- Quindi il contenuto del* 
le linee 4 lfM2Q è identico a quello delle 
vecchie 3600-3700. Idem per (e linee dalla 
530 0 alia K90 corrispondenti alle vecchie 
5 100-8200 per le linee dalla 1010 alla 
1120, corrispondenti alle vecchie 59000- 
61150, con Tunica eccezione della linea 
6 1 150, in cui dovete inserire tra il penulti- 
mo e T ultimo data {cioè tra 22 le 96): 165, 
251, 141, 134, 2. 

Introduzione alla grafica dei 64 

C «nsiderando che sul manuale dato in 
dotazione col computer non viene spiega- 
to nulla riguardo la grafica, tranne il fun- 
zionamento degli sprite, è necessaria una 
piccola introduzione alt’ argomento. 

Come certo saprete, quella che nor- 
malmente compare sullo schermo, la pa- 
gina testo, non è altro che la visualizzazio- 
ne di 1000 byte* della memoria (dalla lo- 
cazione 1024 alla 2023). Oltre a questa il 
64 ha la possibilità di mostrare, agendo su 
opportune locazioni di memoria, una pa- 
gina io mappa) grafica. Anche in questo 
caso viene visualizzata una parte della 
memoria ma non sì tratta piò di 1000 
bytes bensì di 8000! E poiché ogni bytes è 
formato da S bit significa 64000 bit, ai 
quali corrispondono sullo schermo altret- 
tanti punti (nel modo standard) disposti 


in una matrice di dimensioni 320*200. 

Ogni singolo bit può essere posto, indi- 
pendentemente dagli altri, a I o a 0, de- 
terminando T accensione o lo spegnimen- 
to del corrispondente punto sullo scher- 
mo» Purtroppo la corrispondenza bit/ 
punto è piuttosto complicata: se I è loca- 
zione iniziale della pagina grafica; X e Y 
Ee coordinate del punto scelto, l’origine 
degli assi è posta in alto a sinistra* 

Per settare il punto dovete seguire: 

L— I +320* INT( Y/S)+8 * INT(X/ 
8)+YAND7: B^7-(XAND7); 

POKEL, PEEK(L>OR2| B 

Facile no? (Se volete approfondire T ar- 
gomento, non avete che da studiare Tarli- 
colo “Caratteri alfanumerici in pagina 
grafica” pubblicato su questo stesso 
fascicolo)* 

Il colore dei punti viene determinalo, 
nel modo standard, dalle 1000 locazioni 
delia memoria di schermo (che viene spo- 
stata alle locazioni 52224-53223). Ogni lo- 
cazione controlla il colore di un quadrati- 
no di 8*8 punti: i 4 bit più bassi della 
locazione determinano il colore dei punti 
spenti (lo sfondo): i 4 più aiti il colore del 
punti accesi* 

Ad esempio: 

POKE52224, 1G*A+B 
determina i colori dei primi 8*8 punti in 
alto a sinistra: 

POKE53223, (Ó*A+B 



i colori degli ultimi m basso a destra. 

Saranno dì colore À ì punti accesi, e di 
colore B quelli spenti. Potete quindi sce- 
gliere per ogni singolo putito tra due soli 
colori^ ma potete cambiare i colori tra cui 
scegliere ogni 8*8 punti. 

Oltre al modo grafico standard esiste 
un'altra configurazione della pagina gra- 
fica, il modo multicolore, che permette di 
scegliere, per ogni punto, tra quattro co- 
lori anziché due. Questa ampia scelta va a 
scapito della risoluzione orizzontale che 
passa da 320 a 16(1 punti (la meta)» In 
pratica ogni punto diventa largo il 
doppio. 

Vediamo perchè* La nostra macchina, 
per sapere quale colore usare nel visualiz- 
zare un punto sullo schermo, controlla li 
hit corrispondente e agisce in base al valo- 
re di questo ma, come tutti i lettori do- 
vrebbero sapere, un hit può assumere 
due soli valori; Del, Per avere quattro 
valori (e quindi quattro colori) bisogna 
prendere in considerazione una coppia di 
bit* Tale generica coppia può presentarsi 
in quattro confi# urazionh 00; 01; 10; IL 
Badate che questi sono numeri binari e 
corrispondono ai decimali fi; 1; 2; 3, a cui 
d’ora in pof Tarò riferimento per 
comodità. 

Quindi, utilizzando il metodo descrit- 
to, i punti sono larghi il doppio dei punti 
“normali**. Si viene allora a determinare 
una sovrapposizione-coincidenza tra ogni 
punto di ascissa pari e il punto di ascissa 
disparì che lo segue. Esemplo: i punti di 
coordinate (50,20) e (50,21) in modo Mul- 
ticolore vengono considerati identici. 



Terza dimensione 
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-w ertamente avrete tutti visto, prima o 
poi, una fotografia e, osservandola, avre- 
te ricevuto un’impressione dì “profondi- 
la**, Alcuni soggetti sembrano più lontani 
ed altri più vicini. Nella fotografia, cioè, 
un’Immagine reale tridimensionale, è sta- 
ta ridotta ad un'immagine bidimensiona- 
le ma ha ugualmente conservato l’illusio- 
ne della profondità. 


A 


p pii rondo opportune regole di pro- 
spettiva, sì può ottenere la stessa illusione 
con un disegno. Ma non è una cosa molto 
semplice* Ebbene queste rotiti nes sono in 
grado di svolgere tale compito, seguendo 
le regole della prospetti va centrale. 

Per intenderci la prospettiva centrale è 
quella che, senza saperlo, “usa" anche la 
macchina fotografica. Senza entrare in 
diffìcili dissertazioni teoriche (non sarei 
neppure in grado di farlo), vi basti sapere 
che, secondo tale imputazione è come se 
U vostro occhio (punto di vista) si trovasse 
esattamente davanti al centro dello scher- 
mo e le immagini dietro di esso. 

Queste vengono proiettate sullo scher- 
mo e la loro proiezione (che è ciò che 
appare sullo schermo) dipende per di- 
mensioni, forma e posizione dalla distan- 
za e dalla posizione rispetto al punto di 
vista. 


ss 


c informazioni sui colori da usare 
vengono, nel modo Multicolore, da tre 
fonti diverse. 

Dalla locazione 53281 quando la coppia 
di bit è la 0, dal quattro hit più alti della 
memoria di schermo (locazioni 52224- 
53223) per le coppie 1, dai quattro bit più 
bassi per le coppie 2, dalla memoria colo* 
re (locazioni 55296-56295) per le coppie 3, 
Vale lo stesso discorso del modo Standard 
per il cambio dei colori ogni 8*8 punti, 
meno che per il colore delle coppie fi (lo 
sfondo) che può essere cambiato solo “in 
tota”. 


sservando i disegni pubblicati forse 
potete rendervi conto meglio di come fun- 
ziona il meccanismo* Si tratta di visualiz- 
zare un quadrato posto orizzontalmente 
(come se fosse appoggiato sul tavolo), sul- 
la sinistra e in basso rispetto al punto di 
vista V. Congiungendo i vertici delia figu- 
ra vista dall'alto con il punto di vista otte- 
niamo la loro proiezione sulla linea di 
schermo orizzontale (Al, B1, CI, DI), 
Ripetiamo l'operazione con la figura vista 
lateralmente e otteniamo le proiezioni 
verticali (A2=B2, C2— D2), 1 vertici delia 
figura che dovrà apparire sullo schermo 
saranno: A3 di coordinate (A2,ÀÌ); B2 di 
coordinate (B2, RI); C3 di coordinale 
(02, C 1); D3 di coordinate <D2, 1) I). Non 
resta che congiunger lì e il gioco è fatto. 


Con le mìe routine?» vi risparmiate tutta 

. 

questa fatica: vi basta dare le solite coor- 
dinate X e Y e in più aggiungere la durian- 




za dallo schermo, Z, a cui si trova il punto 




desiderato. 

Per aiutarvi a Familiarizzare con la 
nuova coordinata ho preparato alcuni 
semplici “demo” che spiego più avanti. 
Comunque, se proprio non vi ci raccapez- 
zate basta che assegnate sempre valore 0 
alla coordinata Z ed eliminerete 1* effetto 
prospettico. 

Mani poi azione 
del sistema operativo 


f 1 


hi ha già avuto a che fare con te vec- 
chie routine* avrà subito notato, dando 
un’occhiata ai demo, la scomparsa dei 
comandi SYS e delle variabili ** riserva- 
te” in cima al programma. 

Se avete tetto r articolo di A* & A, Bo- 
riimi sul n. 13 di C.C.C,, riguardante la 
possibilità di aggiungere nuovi comandi 
al basic, saprete già come si può “indur- 
re” la macchina a riconoscere un nuovo 
comando e ad eseguirlo* D metodo utiliz- 
zato da A, Sl à. però presenta due incon- 
venienti: i nuovi comandi vengono esegui- 
ti anche se li mascherate con dei REM e, 
per un sicuro funzionamento, occorre 
racchiuderli tra i “due punti** {;)* 

E* per questo che ho cercato, e trovato, 
un altro metodo che non presenta Incon- 
venienti, Il procedimento è sìmile ma Fin- 
se rimemo “pirata” nel Sistema Operati- 
vo avviene più “a valle”, cioè nella routi- 
ne di ricerca comandi U cui indirizzo si 
trova nelle locazioni 776-777* Inoltre, in 
previsione dì futuri sviluppi, la mia routi- 
ne è strutturata in modo da poter cambia- 
re molto facilmente (può farlo anche chi 
non conosce il linguaggio macchina) i no- 
mi dei comandi, anche in lunghezza, e 
aggiungerne dì nuovi. Non solo: è anche 
possibile eliminare l’uso della freccetta 
che normalmente deve precedere ogni 
nuovo comando* 

Tutto ciò vi verrà spiegato nel prossimo 
numero, insieme al breve programma 
che realizza tutto ciò. Fornisco Pubica- 
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/.ione della routine per chi volesse d ^as- 
semblarla: si trova dalla locazione 51000 
alla locazione 51115. Viene abilitata con 
SYS5I000. 

Uii altro inserimento nel Sistema Ope- 
rativo viene attuato con la routine situata 
nelle locazioni 49714-49762. 

L’intrusione è a livello della routine 
che gestisce i messaggi d'errore e la scrit- 
ta READY. I>o scopo di tale modifica è di 
far tornare lo schermo alla pagina testo* 
se si trovava a visualizzare la pagina gra- 
fica, quando il programma si ferma per 
un errore o perchè è finito. 

. L colorì al "‘ritorno forzato sono sempre 
L'azzurro (codice 14), per i caratteri* e it 
lilu (cod, 6)* per lo sfondo. Devo avvertir- 
vi che tutti i caratteri presenti sullo scher- 
mo diventano azzurri, cioè anche quelli 
presenti prima del * ‘ritorno* 1 . Il motivo 
di tale compì n-tamento è dovuto alla pre- 
senza del modo Multicolore, che utilizza 
le locazioni della memoria colore e la 
53281: le stesse utilizzate nei mode» testo. 
Quindi, per evitare che le scritte possano 
risultare dello stesso colore dello sfondo; 
viene eseguito il comando TEXT (spiega- 
to più avanti) prima di tornare al modo 
testo. 

Se volete evitare che Lo schermo torni 
alla pagina testo* alla Fine di un program- 
ma di grafica, dovete farlo terminare con 
STOP invece che con END. 

Se invece non volete utilizzare questa 
routine vi basta saltare la linea 300 che la 
abilita (SYS49724), In ogni caso il reset 
software (SYS64738) rimette tutti i pun- 
tatori a posto, come all'accensione della 
macchina* ma NON CANCELLA le mìe 
routine* che restano disponibili e riabili- 
tatili fino allo spegnimento del computer. 

Caratteristiche generali 

Il oiche vengono utilizzate in questo 
programma le vecchie routine* per i cal- 
coli delle coordinate* valgono sempre I 
limiti precedenti per la X e la Y, cioè tra 
-32768 e +32767. Per la coordinata Z (la 
profondità) e per i raggi di CIRCLE c 
ARC l'intervallo valido è tra 0 e +32767. 


r 

Al di fuori dei limili consentiti il program* 
ma si blocca eòn “ILLEGAL QUANTI- 
TY ERRORE 

I/origine degli assi, cioè il punto di 
coordinate (0,0,0), è ora a) centro dello 
schermo invece che in basso a sinistra. 
Devo riassumere brevemente, per chi non 
ha letto Particola precedente sul n, 10 di 
C.C.C., alcune note importanti. 

Sappiate che le routine» impiegano, a 
tracciare le linee, un tempo proporziona- 
le alla loro lunghezza (fino ad alcuni se- 
condi per le linee da 30000 punti) e che 
premere il tasto “RESTORE” mentre il 
computer sta eseguendo un’operazione dii 
tracciamento comporta 1* inchiodamento 
della macchina. Perdo se volete fermare 
un programma usate solo il tasto u Rl'N/ 
STOP”, 

Durame ii tracciamento, inoltre, l'oro- 
logio interno (quello che potete leggere 
con La variabile TI$) non viene incremen- 
tato ma, come spiegato da A & A Borialti 
alla pag, 14 del n. 13, si può ovviare 
alfincon veniente. 

Questi difetti sono dovuti al fatto che* 
per non rubare memoria ai programmi in 
Basic, ho “piazzato" la pagina grafica 
“sotto” il Sistema Operativo (dalla loca- 
zione 57344 alla 65343) e questa conviven- 
za comporta ì piccoli inconvenienti citati. 

Nuovi comandi 

ÌP asso ora ad esaminare i nove comandi 
che le routine» mettono a disposizione. 

— CLEAR 
Sintassi: CLEAR 

Funzione! pulisce La pagina grafica 
(cioè pone tutti i bit a 0). 

— GRAF 
Sintassi: GRAF À,B 
Funzione; fa passare al modo grafico 
Standard sellando il colore A per lo sfon- 
do e il colore B per i punii accesi. A e B 
rappresentano i codici dei colorì e posso- 
no assumere valori tra 0 e 15, 

- — MGRAF 
Sintassi; MGRAF A,B,C,D 
Funzione; fa passare al modo grafico 
Multicolore svitando il colore A per le 
coppie di bit 0 (lo sfondo); il colore B per 


le coppie L il colore C per le coppie 2, il 
colore D per le coppie 3. 

— TEXT 
Sintassi: TEXTA.B 
Funzione: fa passare al modo testo set- 
laudo Jl colore A per lo sfondo e il colóre B 
per i caratteri. Tutti ì caratteri presenti 
sullo schermo diventano del colore B, La 
presenza dei due parametri è resa neces- 
saria dalla particolare gestione del modo 
Multicolore (vedi la parte sulla routine di 
gestione degli errori). 

— COLOR 
Sintassi: COLOR N 
Funzione: determina con quale dei co- 
lori, definiti con le istruzioni GRAF o 
MGRAF* vanno tracciati i punti, 

N può variare tra 0 a 3 
N— 0 per tracciare punti del colora A 
N=1 per tracciare punti del colore B 
N=2 per tracciare punti del colore C 
N=J per tracciare punti del colore D 
— PLOT 

Sintassi: PLOT X, Y,Z 
Funzione: setta il punto di coordinate 
(X*Y ,Z), 

+ 

IL colore usato è quello specificato daì- 
I* ultimo comando COLOR. X è la distan- 
za orizzontale* misurata in punti- 
schcrmo, dal centro dello schermo (X as- 
sume valori positivi per i punti alla destra 
del centro). Y è la distanza verticale dal 
centro (assume valori positivi nella parte 
superbire dello schermo), 7, è la, distanza 
del punto dello schermo (profondità), 
Può assumere solo valori non negativi. 
— 1>RAW 

Sintassi: DRAW X1*Y l,Zl,X2 t Y2,Z2 
Funzione: traccia una linea di estremi 
SXLYLZI) e (X2,Y2,Z2), il colore usato 
è quello specificato dal! ultimo comando 
COLOR. 

— CIRCLE 

Sintassi: CIRCLE X*Y*Z,RX*RY 
Funzione: traccia un 'ellisse di centro 
<X*Y,Z>, RX è il semiasse orizzontale* RY 
quello verticale, La circonferenza è un 
caso particolare dell 'ellisse che si ha 
quando i due semiassi sono uguali (cioè 
RX=RY). IL risultato “estetico*' non cer- 
to esaltante di questo comando è dovuto 
alla limitata risoluzione grafica. 



- — ARC 

Sintassi: ARC 

X,Y f £,RX,RY,AI,AF,P 

Funzione; traccia archi d'ellisse (o di 
circonferenza) con centro (X,Y,Z) e se- 
miassi RX.ftY. AI è l'anello iniziale, da 
cui fare partire iì tracciamento, AF è l'a- 
nello finale. Tali angoli vanno espressi 
come per le altre funzioni trigonometri- 
che* in radianti. 

] P rima di parlare del parametro P e 
delle grandi possibilità che oltre, è neces- 
sario che vi spieghi corna lavora la routine 
che esegue CIRCI, E e ARC, 

J*a risoluzione grafica del 64, pur es- 
sendo già buona, e Largamente insulti' 
dente a rappresentare linee curve in mo- 
do l ‘gradevole”* Perciò* fatti [debiti con- 
fronti* sono giunto alla constatazione che, 
con un poligono di un numero rilevante di 
lati (quaranta o più), .si ottiene un effetto 
visivo che ha pochissimo da invidiare ad 
una circonferenza tracciata punto per 
punto* con il notevole vantaggio di una 
maggiore rapidità di esecuzione, E visto 
che già coi metodo “poligonale” un'edls* 
se (o una circonferenza) di media gran- 
dezza viene tracciata in circa tre secondi* 
capirete che non ho avuto dubbi e ho 
scelto tale sistema. Il tempo interminabile 
di tracciamento è dovuto soprattutto al 
calcolo dei punti dell Ellisse* che richiede 
Fuso delle funzioni seno e coseno, Per tali 
calcoli ho dovuto utilizzare le routine del 
Sistema Operativo che non sono molto 
veloci* 

1FC veniamo a F, Questo parametro 
indica ogni quanti radianti vanno calcola- 
ti i punti dell'ellisse che devono essere 
uniti con delle linee rette. P dunque dimi- 
nuisce all'alimentare del numero di lati 
del “polìgono-ellisse”. Nel caso dell'i- 
struzione CIRCLE tale valore è fisso ed è 
circa uguale a 0,157* Per essere più preci- 
si* è uguale a 2*tr/40 f quindi le ellissi così 
ottenute sono in realtà dei poligoni di 40 
lati. 

Nel comando ARC* invece* P lo stabili- 
te voi. Ciò significa che oltre ai soli archi 
potete fare disegnare poligoni con qua- 
lunque numero di lati! E non solo poligo- 


ni... Per saperne dì più leggete più avanti 
dove spiego t demo* 

Opzione $ 

vL hi ha già usato le vecchie routine* 
avrà apprezzato la possibilità di non do- 
vere ripetere ad ogni istruzione grafica le 
coordinate che non variano. Ciò risulta 
utile soprattutto nelle animazioni * dove la 
velocità è molto importante. 

Con fa “standardizzazione” dei co- 
mandi* realizzata con le nuove routìnes* 
l'opzione rimane a metà* Mi spiego me- 
glio: ogni comando deve essere seguito da 
un numero fisso di parametri (esempio: 
tre per PLOTh altrimenti si incappa in 
un “SYNTAX ERRORE Questi para 
metri vengono valutati e (solo 
per le istruzioni di tracciamento: PLOT, 
DRAYV, ARC* CIRCLE) conservati in 
una zona di memoria, da dove vengono 
successivamente presi e utilizzati per l'e- 
secuzione dd comando. Se uno di questi 
parametri viene rimpiazzato con il simbo- 
lo “$”* allora Le routìnes saltano la valu- 
tazione e lo “stivaggio” del parametro* 
così quando* nel prosieguo dell'esecuzio- 
ne* la routine preleva i valori del * ‘magaz- 
zino 1 1 * trova il valore che era stalo deposi- 
tato con il comando precedente. 

Ad esempio se digitate 
—COLORI: PLOT 10,5*0: 

—COLORO: PLOT$, $*$ 

vedrete che il punto dì coordinate (10*5,0) 

verrà prima acceso e poi spento* 

L'uso dell'opzione t4 $” permeile ri- 
sparmi di tempo tanto maggiori quanto 
più complesse sono le espressioni che do- 
vrebbero, in caso contrario, essere 
calcolale. 

Reazione: le locazioni del “magazzi- 
no” vengono utilizzale dalle quattro 
istruzioni con alcune sovrapposizioni; 
quindi, per evitare che l’output grafico, 
sia diverso da quello previsto, usate que- 
st'opzione solose l’ultimo comando grafi- 
co (PLOT, DRAW, ARC, CIRCLE) era 
dello stesso tipo di quello con i “$”. 

Ad esempio: 

— CIRC LEO *0,0 *50,50: PLOT20,10*Ó: 


* -ClRCLE$,$,$,fSfl*8® 
il secondo cerchio avrà come coordinale 
del centro quelle di PLOT e non, come 
potevate pensare, quelle del cerchio pre- 
cedentemente tracciato, 

Demo AilC 

uesto piccolo programma illustra al- 
cune delle potenzialità dell'istruzione 
ARC. 

Facendo girare vedrete disegnare e 
cancellare una serie di poligoni, dal trian- 
golo al dodecagono, ottenuti tutti con 
un'istruzione ARC, semplicemente va- 
riando il “passo”, cioè l'ultimo parame- 
tro, che assume valore 2*?r/L con L che 
varia da 3 a 12, 

Nella seconda parte de! programma 
viene tenuto fisso il passo (4*tt/5) e fatti 
variare l'angolo iniziale (da 0 a 2'ff) e 
l'angolo finale (“ang. in, ”+4 *j 7). Visto 
che belle e precise stelle a cinque punte 
vengono disegnate? 

La variabile dell’angolo iniziale serve a 
fare ruotare le stelle* Potete fare lo stesso 
con i poligoni in modo da orientarli come 
più vi piace* Ad esempio per ottenere un 
quadrato con i lati paralleli ai bordi dello 
schermo V angolo iniziale dovrà essere Jif 
4, per un pentagono con un lato orizzon- 
tale tt/ 2. L'angolo finale per disegnare un 
polìgono deve essere uguale all'angolo 
iniz.+2*j7, 

Per rendere le figure da tracciare più 
alte* più basse, più Larghe o più strette 
agite sui semiassi (quarto e quinto 
parametro). 

Un ultimo chiarimento per non lasciare 
dubbi: l' angolo iniziale e l'angolo finale 
possono assumere qualsiasi valore* anche 
negativo, e la differenza tra i due può 
essere maggiore delPangolo giro (2 *ì 7), 
Nella ARC che disegna la stella infatti è 
uguale a 4 4 tt* 

Vista la flessibilità di questa istruzione 
non vi resta che fare esperimenti per sco- 
prirne tutte le potenzialità. 

Demo 3D 

(leste poche righe di programma ser- 



vono a farvi familiarizzare con La terza 
coordinata, che può risultare di difficile 
comprensione. 

Prima vengono disegnati, mediante 
un" Istruzióne ARC* dei rettangoli posti in 
basso e a sinistra rispetto al centro dello 
schermo. Come potete osservare nella li’ 
nea 6(1 Punico parametro che varia è il 
terzo (Z), cioè la distanza a cui vanno 
disegnati. Come potete vedere i rettangoli 
più lontani oltre ad essere più piccoli ten- 
dono verso il centro dello schermo. 

Lo stesso viene fatto nella seconda par- 
te ma, al posto dei rettangoli* vengono 
tracciati dei cerchi. A causa delTinsuffi- 
dente risoluzione grafica t cerchi piu pic- 
coli risultano inevitabilmente più spigolo- 
si dei grandi. 

Provate a cambiare uno alla volta i pa- 
rametri delle ARC e lo STEP dei cicli 
FGft/NEXT ed osservate * risultati. 

Quadrato 3D 

C^on questo demo potete farvi un’idea 
su come realizzare una semplice 
animazione. 

Nella prima parte viene visualizzato un 
quadrato, messo in posizione verticale* 
che viene ‘‘ribaltato” in posizione oriz- 
zontale. Per capirci meglio fate conto di 
essere in un catello* davanti a) “ponte 
levatoio” chiuso e che questo venga poi 
calato giù. Appena raggiunta la posizione 
orizzontale, i) quadrato {seconda parte 
del demo), si allontana da voi* 

Per fare cambiare dimensione e posi- 
zione al quadrato vi basta agire sulla linea 
40 dove sono stabiliti la lunghezza del lato 
(L) e le coordinate del vertice superiore 
sinistro del quadrato (X, Y y Z). 

Cubo nello spazio 

o ra che vi siete abituati alla nuova 
coordinata ecco finalmente un esempio di 
figura tridimensionale, un cubo, che po- 
tete muovere nello “spazio” usando i ta- 
sti del cursore e ì tasti + e -* 

Gli spostamenti avvengono «in un pas- 


so di 50 punti lungo gli assi X e Y, con 
passo 100 lungo Tasse Z> La linea 60 de- 
termina il lato (L) e la posizione iniziale. Il 
cubo viene disegnato dalie linee 100-200. 

I simboli grafici che compaiono nelle 
linee 250-280 sono ottenuti premendo i 
tasti del cursore (con o senza SH1FT) 

Grafici di Funzione 

uesto non e esattamente un pro- 
gramma dimostrativo, ma piuttosto 
applicativo. 

Esso permetterà di visualizzare la fun- 
zione matematica scelta. Naturalmente è 
necessaria una pur minima conoscenza 
delT analisi matematica. Dando il RUN 
comparirà un “mentT’ con due possibili 
scelte: cambio d intervallo e cambio di 
funzione. 

Se premete il tasto 2 verrà visualizzata 
una scritta con le istruzioni sul da farsi e, 
sotto, verrà listata la linea 170 che colice- 
ne la funzione* Premendo il tasto t invece 
vi verrà chiesto di fornire gli estremi del- 
^intervallo in cui volete studiare la fun- 
zione. L'ampiezza de II* intervallo potete 
variarla a vostro piacimento, così potrete 
constatare il comportamento delle fun- 
zioni più (intervallo ristretto) o meno (in- 
tervallo ampio) in dettaglio. Attenzione, 
perché T istruzione INPUT della linea 145 
non riconosce il jt* 

Premuto RETURN, il programma cal- 
colerà il massimo e il minimo della funzio- 
ne, nell'intervallo impostato. Attenzione 
perchè, non essendo calcolati con le deri- 
vate* massimo e mìnimo non sono 
precisissimi* 

Passati alcuni secondi in paziente atte- 
sa ecco che compariranno i due dati e 
sotto un 1 altra richiesta: dovete comuni- 
care al programma il fattore di moltipli- 
cazione dei valori della funzione. Cioè 
dovete rispondere l se valete visualizzare 
la funzione in modo “normale”* Se ri- 
sponderete con numeri compresi tra 0 e 1 
la funzione risulterà’ “schiacciata”, vice- 
versa con numeri maggiori di t sarà 
espansa in altezza. Infine rispondendo 
con 0 sì otterrà che la funzione occupi in 
altezza tutto Lo schermo* Dopo quest ‘ulti- 


ma rispósta verranno tracciati gli assi* se 
visibili, e finalmente la funzione. 

Per tornare al menù premete un tasto 
qualunque. 

Simulazione di movimento 

' eco un esempio dì come si possa simu- 
lare una situazione “movimentata”. Co- 
piate questo breve programma e fatelo 
girare. Vedrete prima colorare il cielo 
d'azzurro (linea 50) poi disegnare delle 
montagne sullo sfondo utilizzando l’istru- 
zione RND (linee 80-130). Finite le mon- 
tagne è la volta della strada (linea 150) e 
dei suoi bordi (linee 180-185), 

A questo putito comincia il movimento. 
L’impressione che dovreste ricavarne, 
con un po’ di buona volontà, è che voi 
stiate correndo con un’auto su quella 
strada. Potete accelerare premendo il ta- 
sto l e rallentare premendo il tasto 2- 
Vediamo alcuni particolari “tecnici” 
del programma. Come potete vedere, 
dalla linea 10 e dal televisore, viene usato 
il modo multicolore che consente di lavo- 
rare con una risoluzione piu bassa ma con 
quattro colori. In pratica i colori ottenibi- 
li sono più dì quattro, anche senza agire 
sulle locazioni che determinano i colori. 
Basta colorare te figure con 2 o più colori 
diversi. Un modo per farlo è quello utiliz- 
zato per le montagne* cioè alterare linee 
di diversi colori. Oppure* per ottenere, 
un risultato più omogeneo* alterare punii 
di colori diversi. 

e montagne* oltre al colore composto 
hanno la particolarità di essere disegnate 
ricorrendo alFistruzione RND (random). 
Siccome mi sembra un sistema interes- 
sante ve lo illustro nei particolari* 

Nella linea 84) viene specificata la posi- 
zione (orizzontale) della cima delta prima 
montagna (-150). 

Nella linea 90 viene calcolata in modo 
casuale l’altezza (M) della montagna, che 
può variare tra 14 e 30 punti-schermo* 
Nella linea 100 comincia il ciclo che 
colora le montagne dalla cima (m) fino a 
terra (0) con STEP -2 (per avere la colora- 
zione a righe alternate). Inoltre vengono 




calcolati i “fianchi’* della montagna* A è 
il fianco sinistro e infatti avvicinandosi 
verso terra A si sposta verso sinistra* Vi- 
ceversa per B. D risultato è che la monta- 
gna sì allarga dalla cima verso la base. 

Nella linea 120 vengono uniti ì fianchi 
della montagna con una linea colorata e sì 
ripete il procedi mento fino a che la mnn- 
Lagna è stata completata. 

Nella linea 130 viene con (rollato che lo 
schermo non sia ancora stato riempito 
tutto di monti* Quindi viene calcolata la 
posizione della nuova montagna che viene 
a trovarsi sulla destra della precedente. 


Ed infine si ripete il ciclo delia linea 90* 

L a strada e i suoi bordi non presentano 
alcun aspetto rimarchevole perciò passe» 
subito alla simulazione di movimento. 

Linea 19$. B rappresenta la velocità, 
cioè Io STEP della linea 2S0c inizialmente 
c 200* X determina dove devono compari- 
re (a destra o a sinistra) i paletti che co- 
steggiano la strada. L* istruzione DRAW 
dì questa linea serv e per mettere nei “ma- 
gazzini” i parametri che non cambiano 
nel ciclo (vedi la spiegazione del l'oppio ne 


Linea ZOO. Se è stato premuto il tasto I 
e B (cioè lo STEF) è minore di 3200 allora 
la velocità raddoppia - 

Linea 210. Se invece è stato premuto il 
tasto 2 e B è maggiore di 25 allora la 
velocità viene dimezzata* 

Lìnea 250. Viene disegnato il paletto. 
Linea 550. Tramite un cambio nei colo- 
re 2, attualo con l’istruzione MGRAF 
viene ottenuto un effetto lampeggiante 
dei bordi della strada, colorati con il colo- 
re 2 (vedi linea ISO). 

Linea 700 : viene cancellato il paletto eli 
ciclo viene ripetuto* 







t 


100 RE!M **** -t- ********* i**## :t ****** )|< * ifc 


110 REM ** LE NUÒVE ** 
120 REM ** R0UTINES GRAFICHE ** 
13G REM * + PER IL COMMODORE 6'1 #* 
1*10 REM ** 0 1 DANILO TOMA ** 
150 REM ** VI A PORDENONE 13 ** 
1P0 REM ** MILANO ** 
176 REM ** TEL. 02/2 15302*1 ** 
ISO REM * * ** 


* 

100 REM **************************** 

191 ì 

200 PR I NT “ k J"3PC< 252) "LETTURA DEI DATI H 

210 C*0 :F 1 =3393 *C< O )=- 1*1173 tC< 1> =36550 

215 CC 2 ) -3^1332? C< 3> - I731G=C< -1) - 1 3533 

220 C( 5 ? “27362 - CC 6 > =*1*172 ' C< 7 >"29651 

225 Ct 3> -29 JC1 *CC 9 ) =3*1 335 s CC 1 0 > = 18356 

230 FOR 3 ^13 1 SETOLI 9373 J OGSUB320 

2^10 HEMTSG0SUB350 

250 FOR I =*ÌO300TG50 1 33 * GOSUB320 

260 NEKT - GO3LIB350 

270 FOR I "50215TO5H63 IG0SUB32B 

200 MEMTs G03UB350 

230 3YS5 1000: REM **** ABILITA NUOVI COMANDI **** 

306 SYS *137 2*1 s REM *** MODIF. ROUTINE CHE GESTISCE GLI ERRORI *** 
310 END 

320 RE ADA * C=C t-ft : ROKE I r A 

330 IF 1/256= INT< I/£5G JTHEN350 

3*10 RETURN ' 

356 F 2 "PEEKC 63 > +PEEKC 6*1 > *250 

360 IFC< >C< N)T1-IEMPR I NT “ERRORE NEI DATA GRUPPO DI L INEE H F 1 fFgi END 
370 F 1 =F2 ! C “0 5 N = N+ 1 e RETURN 
300 : 

330 REM 03152 **** 

*J0O s 

•110 DATA 73 ,255 , H9 ,250 , 1S 1 ,243, 73,255 , 143 ,243 ,246 .£‘13,203 
420 DATA 2 ,£46 ,250 . 160 ,202, 162 ,255 ,36 
<130 s 

440 REM 43173 *#¥* 

450 ! 

460 DATA 162 .3 , 169 ,214 ,2 , 143 ,33,202 , 15 ,243 , 173,203 ,2 
470 DATA 133 .67 , 173 ,203 ,£, 133 ,63, 173 ,210 ,2 , 133 ,31 , 133 
430 DATA 73,173,211,2,133,32,133,73,36,234,234 
430 DATA 192,46 , 12 ,3 ,0 ,85, 170 ,255 ,234 ,334 ,234 ,234 ,234 .£34 
500 : 

510 REM 43224 ***+ 

520 ! 

530 DATA 160,232,162,0,56.165,33,223,37,133,243,165 

540 DATA 94 ,229,68 , 133 .250, 16,3,32,0 , 192, 140,55, 133, 142,59 

550 DATA 133,160,136,135,208.2,160,230,140,62,133 

560 DATA 160,232,162.0.56,165,35,223,91,133,253,165,96 

57© DATA 223,32,133,254,16,5,162,4,32,0,132,140,106 

560 DATA 133 . 142, 1 IO, 193 , 134 ,69 , 134 ,90 , 163, 193 , 138,208 ,2 



530 DATA 180,230,140.113,193,160,56,189,229,224,0,203,4 

GO0 DOTA 160 , £4 , 169, 101 , 140,72 , 193 . 14 1 ,75, 193 , 14 1 ,81 , 193 

610 DRTR 14 1 ,37 , 133, 14 1 ,33 , 133 r 163 ,234 , 141 , 1 15 , 193 , 165 ,£43 

620 DOTA 208, £, 165,256,208,27, 169,36, 14 1 , 1 15, 133,24 , 144 

630 OSTO 3,32,104,193,32,141,133,165,78,137,95,208,244 

640 DRTR 165,79,137,96,203,249,96,230,249,208,2,230,250 

650 DRTR 230,253,208,2,230,254,189,0,133,251,133,252,133 

660 DRTR 247,133,243,162,33,165,247,56,223,243,168,165,248 

670 ORTO £23,250,144,5,133,243,152,133,247,38,251,38,252 

680 DRTR 33,253,38,254,38,247,33,248,202,208,224,165,247 

690 DATA 203 ,4 . 185 ,248,240 ,7 , 162 ,0 ,232 .£46 ,£50,240,251 

700 DATA 180,1,165,253,208,6,165,254,208,2,160,0,132 

710 DRTR 80 ,24 , 144 , 1 1 , 188 ,87 ,202, 134 ,37 ,224 ,255,208,2 

720 DRTR 133,38,185,91,133,73,165,92,133,79,24,165,89 

730 DRTR 101,251.133.33,165,30,101,252,133,90,165,31,101 

740 DRTR 253,133,31,165,92 

750 DRTR 101,254,133,32,32i.l4l,193,l65 

760 DRTR 80.240,24,166,78,232,134,73,224,0,208,2,230 

770 DRTR 79,234,165,73.197,91,203,231,165,79,197,92,208 

738 DRTR 243,165,37,197,93,208,175,165,88,137,94,208,243 

730 DRTR. 36 , 165 ,38,240 ,12,201 , 1 ,240 , t ,96 , 165,87,20 I 

800 DRTR 64,144,1,96,165,79,240,1,96,165,78,201,200 

810 DATR 144,1,36,165,78,41,7,133,247,165,73,74,74 

820 DRTR 4 1,254, 168,185 ,£35,193 ,56 ,223,247, 133 ,247 ,185 ,£36 

330 DRTR 193,24,101,83,133,248,165,87,41,248,168,165,87 

840 DRTR 41,7,76,36,134,193,166,2,240,5,17.247,145 

350 DRTR 247,98,73,255,49,247,145,247,98,129,64,32,16 

860 DRTR 8,4,2,1,7,254,193,252,135,251,71,250,7 

870 DRTR 243,189,247,135,248,71,245,7,244,199,242,135,241 

330 DRTR 71,240,7,239,199,237,135,236,71,235,7,234,199 

330 DRTR 232 ,135,231 ,71 ,230,7,229 ,133,227, 135,228,71 ,225,7,224 

900 ! 

310 REM 49693 **** 

920 ! 

930 DRTR 234 ,234 ,234 ,234 ,234 ,£34 ,234 ,74 , 170 , 139,58 , 132 ,73 
340 DRTR 255,49,247, 145,247, 139,58, 192, 166,2,61 ,6£, 192 
950 DRTR 17,247,145,247,96,163,71 
360 DRTR 141,0,3,169,194,141,1,3,96 
970 DRTR 134,254,169,32,45,17,208,240,9,163,14 
930 DRTR 133,251,169,6,32,207 
930 DRTR 133,166,254,43,3,76,53 
1000 DRTR 134.76,116,164 
1010 : 

1020 REM 49763 
1030 s 

1040 DRTR 163,224,133,250,169,0,133,249,162,32,163,145,249 
1050 DRTR 203,208 ,251 ,230,250 ,202,233 ,246,36, 169,204 , 133 ,250 
1060 DRTR 160,0,132,243,165,251,10,10,10,10,133,253,165 
1070 DRTR 252,41,15,24,101,253,162,4,145,249,200,208,251 
1080 DRTR 230,250,202,203,246,36,165,243,240,22,169,32,13 
1030 DRTR 17,208,141,17,203,169,56,141,24,208,169,252,45 
1100 DRTR 0,221,141,0,221,36,169,223,45,17,203,141,17 
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DATA t OS , 163,21 , 141 ,24 , 208 , 169 ,3 , 13 ,0 ,22 1 ,141,0 
DOTA 221 r 165, ESI , 14 1 , 134 ,2 ,36 

V 

w 

REM 3873 + * * * 


ie00 


REM 13300 **** 

m 

169 ,9 - 133 ,37 . 133 ,99 ,24 0 ,3£ , 163, £ ,133,37,133 
93 , 1G3 ,0 , 133 ,9S ,£40 ,12,163,1, 133,37 ,163,0 

133.33.168.6.133 .33 . 165.33 . 133 .254 .165.34.133 
£ 55 , 164 ,38 , 135 ,2 12 ,2 , 133 ,£47, 185 ,2 3 3 ,2 , 133 ,248 

169.0. 133.31 ,32,131, 135,165,253 , 133,33 , 165,254 
133 ,94 , 165 ,35, 133,254 , 165,36 , 133,255, 169 , 1 ,133 
3 1 ,32 ,141, 135 , 165 ,253 , 133,95 , 165 ,254 ,133 ,96 , 165 
87,133 ,254 ,165,88, 133,255,173,212,2 
133,247,173 

£ 13 ,2 , 133 ,243 , 169 ,0 ,133 ,01 ,32 , 131 , 195, 165,253 
1 33 , 87 ,165, £54 , 133 ,88, 165,91 , 133,254 , 165, 3£, 133 
£55 ,163,1,133,81,32,141,195,165 ,253 ,133,31,133 

78.165 .254 . 133 .92. 133 ,79 ,96,169,3, 133,249,230 
243,203 ,2,230,249,165,255,133,80, 16,5, 16£ ,5 

32.0. 192 . 169 ,0 , 133 ,253 ,169 ,25 , 133, 3£ , 169, G 

133.252 . 133 .251 . 133 ,250,56 , 165,250,229 ,247, 168 , 165 
251 ,££3,248 , 170 , 165 ,£5£ ,229 ,249 , 144 ,6 , 133,252 , 134 
25 1 , 132,259 ,38 ,£53,38,254 ,33 ,255,33 ,£50 ,38 ,251 
38,252, 138,82,208,217, 165,30, 16,7, 18£, 4 , 165 

254 .32 .0 . 132 . 193 ,33 , 16 ,29,165,3 1 ,208,4 ,169 
160,203 ,2,163,100,24,101 ,253, 133,253,165,254 ,105 
3, 133,254,80,6 , 138,254, 163,255,133,253,36 

« 

REM 50172 »*** 

■ 

-■ 

DATA 13 , 138,32 , 133 ,57 , 133,66 , 133,99 , 134 , 170, 133 ,202 
DATA 133,234,199,42,133 

W 

REM 50183 ** + * 


REM 50215 **** 

* 

DATA 162 ,4,139 .223 .2 , 157 ,168,2,202 , 16,247, 169 ,228 
DATA 133,25, 169 ,2 , 133,26,76 , 1S4 , 136,160,2, 169 , 168 
DATA 32 , 162 , 187 ,32 , 107 ,226, 160,2,163,183 
DATA 32,40,136 

DATA 32 , 170 , 177 , 170 , 15£ ,24 ,103,130,2,141 ,203 ,2,133 
DATA 103,131,2,141 ,204 ,£ , 160 ,2 , 169 , 168 , 32 , 1 62 , I 87 
DATA 32 , 1B0 ,226 , 1 SO ,2 , 189 , 173 ,32 ,40 , 1 36 , 32 , 170 , 177 
DATA 170 , 152 ,24 , 109 , 138 ,2 , 14 1 ,20 1 ,2 , 133 , 109, 139,2 
DATA 14 1 ,202 .2 ,36 , 169 ,0 , 14 1 , 168 ,2 , 14 1 , 163 ,2 , 14 1 
DATA 170,2,141.171,2,141, 172,2,168,226,133,26,169 
DATA 229,133,25, 169, 126, 14 1, 173,2, 169,32,14 1 , 174 ,2 





< f# 







a 


■ 







ss 


1530 
ie43 
1650 
1660 
1670 
1600 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1760 
t 1738 

j .1800 
1810 
| 1320 
1830 
1 34 0 
[ 1850 

] 1860 
i 1 870 
1880 
1830 
i 1900 
; 19 10 

I960 


DATO 169,217, 141 , 175,2, 169, 123, 14 1 , 176,2,169,197, 14 ! 
DATA 177,2,32,21, 192 ,32 ,244 ,134,164,33,165,34,32 
DATA 145 ,173, 162 , 178 ,160,2,32 ,2 12 , 137 , 165 ,87 ,14 1,188 
DATA 2,165,88,141, 133,2 , 164,35, 165,96 ,32,145, 179 
DATO 162,133,160,2,32,212,167,165,31,141, 190,2, 165 
DATA 32 , 14 1 , 191 ,2 , 163 ,0, 133 , 181 ,32,6 1 , 196 , 173 ,201 
DATA 2,141, 135,2 , 173,202 ,2 , 14.1 , 136 ,2 , 173 ,203,2 
DATA 141,199,2, 173,204 ,2,141 ,200 ,2 , 160 ,2 , 169 , 1 68 
DATA 32 , 162 , 197, 160,2,169 , 173,32 , 103, 184 , 160 ,2, 162 

DATA 168,32,212,187, 165,25, 164 ,26,32,31 , 183,201 ,255 
DATA 240, 14 , 169, 1 , 133, 181 , 160,4 , 177 ,25, 153,168,2 
DATA 136 , 16,248,32,61 ,196,162,3,189, 135,2,143,87 
DATA 202 , 16,243, 165,91,133,73, 165,92 ,133,73,32,94 
DATA 137 ,32,72 ,132,32,103,197,165,131,240,152,36,169 
DATA 254 ,45 , 14 ,220, 14 1 , 14 ,220, 163,253,37 , 1 , 133 , ! 

DATA 96 , 169,2,5 , 1 , 133 , 1 , 169, 1 , 13, 14 ,220 ,141 

DATA 14,220,36 

■ 

« 

REM 50556 **** 

DATA 162,36,133, 160 ,0 ,209 , 122 ,240 ,6 , 32 , 133 , 1 73 , 162 
DATA 0,96,32,1 15,0,96,32, 124 , 197,224,36,240,9 
DATA 32,170,177, 140 ,208 ,2 , 141 ,203,2,32 ,253 , 174 ,32 
DATA 124 , 197,224 ,36 ,240,9,32, 170,177,140,210,2,141 
DATA 2 ! 1 ,2,32 ,253 , 174 ,32,124 , 137 ,224 ,36 ,240 , 15,32 
DATA 170 , 177 , 170 , 16 ,3,76,72 , 173 , 140,212 ,2 , 14 1 ,213 
DATA 2,96,32,253,174 ,32 , 124 , 1 97 ,224 ,36 ,240 ,9 ,32 
DATA 170,177,140,214,2,141 ,215,2,32,253, 174,32,124 
DATA 197,224 ,36 ,240,3,32 ,170,177,140,216,2,141,217 
DATA 2,96,32,253,174 ,32,124 , 197,224 ,36,240,15,32 




1330 
1340 
1350 
I960 
1970 
1980 
1330 
2000 
2010 
2O20 
2030 
. 2O40 
2050 
2O60 
i £070 
2080 
2090 
: 2100 
i 2 11© 
2120 
2130 
2140 


DATA 170, 177 , 170, 16 ,3 ,76 ,72 , 178, 140,2 18 ,2 , 14 1 ,219 
DATA 2,96,32,143, 197,32,31 , 132,32,236,194,32,94 
DATA 197,32 ,141, 133 ,32 , 109 , 137 ,96 ,32 , 143,137 ,32 ,204 
DATA 137,32,243,197,32,21, 192,32,0, 195,32,94 , 197 
DATA 32,72,132,32,109,197,96,32, 143, 197,32, 126,138 
DATA 76,134 ,196,32 , 143,137 ,32 , 126 , 198,32 ,253 , 174 ,32 
DATA 124 , 197 ,224 ,36,240,7, 162,223 , 160 ,2 ,32,2 12, 137 
DATA 32,253 ,174 ,32 , 124 , 197 ,224 ,36,240 ,7,162,228, 160 
DATA 2,32,212.197,32,253,174 ,32,124 , 19? „2H4 ,36,240 
DATA 7, 162 , 173 ,160,2 ,32,212 , 187,76 ,39, 196 ,32 ,204 
DATA 197 , 173 ,2 15 ,2 , 16 ,3,76 ,72, 179 , 173 ,217 ,2 

DATA 48,248,36,234,234 

■< 

* 

REM 50333 **** 

■ 

DATA 32 , 158 , 133 ,224 ,16,48,3,76,72 , 178 , 134 ,252,32 
DATA 253, 174,32,159, 193,224 , 16 , 16,24 1,134,251,96,32 
DATA 145 , 198,32 , 121 , 194 ,163,239,45 ,22,208, 14 1 ,22 ,203 
DATA 169,170,143 ,207, 193 , 169 , 133 , 14 1 ,208 , 193 , 169,227 , 
DATA 209 ,133 ,76 , 161 , 194,32 ,145, 193, 165,252, 141 ,33 ,208 
DATA 169,216,133,250,160,0, 132,243, 165,25! ,32, 144 , 134 
DATA 169,239,45,22,203 ,141 ,22,203,76 , 183 , 194 ,32 , 1 45 
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2150 DATA 138,165,252,141,33,208,165,251,133,253,32,253,174 
2160 DATA 32 , 145 , 133 , 169 ,216, 133,250 , ISO ,0 , 132 ,243 , L65 ,25 1 
2170 DATA 32,144,184,165,253,133,251,32,121,134,163,16,13 
2130 DATA 22,209,141,22,208,163,76,141,207,133,163,36,141 
2130 DATA 208,193,168,134,141,209,133,76,161,134,32,158,183 
2200 DATA 224,4,48,3,76,72,178,134,2,36,234 
2210 : 

2220 REM 51000 **** 

2230 s 

2240 DATA 163 

2250 DATA 67,141,8,3,163,133,141,3,3,36,32,115 

2260 DATA 0,201,35,240,6,32,121,0,76,231,167,163,0 

2H7B DATA 133,243,165,122,133,252,165,123,133,253,160,0,240 

2280 DATA £0 , 165 ,252 , 1 33 , 122 , 165,253 , 1 33 , 1 23 , 230 ,243 , 169',9 

2230 DATA 137,249,240,218,200,202,208,252,185,172,133,170,32 

2300 DATA 1 15,0, 133 ,254 ,200 , !35, 172 , 199 , 137 ,254 ,208,218,202 

2310 DATA 203,240,6,248,166,248,133,252,135,141,83,3,232 

£320 DATA 183,252,135,141,64,3,163,32,141,82,3,163,36 

2330 DATA 141,65,3,32,115,0,32,62,3,76,174,167 

2340 : 

2350 REM 511 16 **** 

2360 > 

2370 DATA 4,80,76,73,84,4,68,82,65,87,8,87,73 
2380 DATA 82,67,76,63,3,65,82,67,5,67,76,89,65 
£390 DATA 32,4,71,82,65,70,4,84,63,88,84,5,77 
2400 DATA 71,82,65,70,4,67,73,76,176 
2410 s 

2420 REM 51163 FINE **** 

READY. 


]00 REM +** CUBO NELLO SPAZIO *** 

110 REM DEMO 3~D PER LE NUOVE ROUT1NES DI D. TOMA 

120 REM *** L=LATO X=POSIZ. ORIZZ. Y = POSIZ. VERTIC. 2 =0 ISTANZA 
130 REM *** X,Y,Z SI RIFERISCONO ALLO SPIGOLO IN ALTO 4 ** 

140 REM *** A SINISTRA PIU' "VICINO" ALLO SCHERMO *** 

150 : 

160 PRIUT'iJtìaSS PER SPOSTARE IL CUBO SU, GIU"’ 

170 PRINT* A DESTRA, E A SINISTRA* 

130 PRINT” USARE 1 TASTI DEL CURSORE” 

190 PRINT"M PER ALLONTANARLO E AVVICINARLO” 

20O PRINT" USARE I TASTI F E 
210 PR1NT I ‘ MMM PREMERE UN TASTO " 

220 GETA*5 1FA¥=" "THEN220 
230 * 

240 <-CLEAR:f-GRAF 0 ,5 = ‘-COLORI - 
250 L c 200 s X = 1 70 ! Y = -75 * 2 ”500 
260 : 




270 FORYl =YTQY~LSTEF*L 
£SO HDRAÌ4X F Y] rZ ,X + L rY3 ,2 
£30 H3RAL4* ,0 F Z +L +L 

300 *-DRAL4X+L,$,Z 
310 H3RAUIX 
3£0 NEXT 

330 FORZ 1 =Z TOZ +LSTEPL 
330 *ORA1aK,Y,Z 1 #X,Y~L # Z 1 
350 HDRAUIX + L 
360 fEXT 

370 s ■ - 

380 GETA*; IFA0=" *THEN3©0 

390 1FA^“ * - “THENZ =2 + 100 

400 ÌFR** * + M AMDZ >93THENZ =Z-100 

410 ]FA*- *n H THEMY~Y+50 

4£0 1 F A*= " M w THENY=Y-50 

430 IFM- “i" THENK=X +50 

440 IFPi^= d ||* THENX-X-50 

4 50 +-CLERRSGOT0BT0 

READY - 


10 REM *** QUADRATO 3D * ** 

15 REM *** L -LATO tfspQSIZ. ORIZZONTALE Y=POSIZ. VERTICALE 
17 = 

2© REM *** ROTAZIONE INTORNO ALLA BASE INFERIORE *** 

30 4-CLEAR : «43RAF6 r 3 ! «-COLOR 1 
40 L" 100? X -“50 : Y^0 3 Z = B 

50 FORI-0TQ*/23TEP*/43S Yl=L*COSC I >+Y-L*Z l=L*SIN( l > +Z 
SO 4-pRAUfrtvYl ,2 I ,tf+L,Yt ,Z1 
70 «-DRRUIS rY-L ,Z ,*r F Y-L F Z 
80 *DRAkK+L,*,2,*,Yl ,21 
30 +ORRUX,JF,2 

100 FORK-0TO 10 ? NEXT5 «-CLEAR SfEXT 
140 : 

145 REM *** QUADRATO IN MOVIMENTO VERSO L'ORIZZONTE *?* 

£00 FORZ£*ZTO3000STEF£00 
300 +-OR AMK F Y “L , Z2 ,K+L , YrL.,22 
400 «-DRAI4*,sp ,Z£ + L,* F £,Z£+L 
500 HDRPl^*L,$ f 22,f 
6O0 «-DRAWX 

700 *-CLEAR " NEXT* GOT04B 
730 i 


Z -DISTANZA 


ri 


READY 







10 FRI NT" 

50 FRI NT" 

100 POKE53280 ,6 


IP 


GRAFICI DI FUNZIOrE * 1 


1 IO 
3 25 
130 
1 3 E 
136 
138 
1*10 
145 
155 
160 
3 70 
180 
390 


PR I NTSPCX 2 16) ^ PREM 1 1J : PR I NT " 


SI* PER CAMBIARE 


FRI NT* 

GETA^:ONVBL< A±T) GOTO 145 ,136 
GOTO 1 30 

PR I NT » TF ir A LA 

PR INT » ********* * O I DAI IL 
LISTI?® 

input *ansna estremi dell 

M -399 99 ; i - -M 

S-<BHFD/319 

DEFFMV<>!J*SINCX> 

■ 

FORM -ATQDSTEPS ! Y=FNY< X > 
IFY>LTHENL*Y 


PER CAMBIARE FUNZIOTC'* 


SEGUENTE LINEA * 
RUNMfl" 

INTERVALLO* M " A ,B 


INTERVALLO" 


E00 1FY< PTTHENM-Y 
205 fEMT 

2 10 PR1NT» — U MASSIMO DELL * INTERVALLO*" * L 
215 PRIMT» JM MINIMO DELL 1 INTERVALLO * w J M 
E 1 9 nPUT ,l ÌflÌ SCALA DI Y * «;p 

223 IFFOSTHErPl *S,"F 

230 T-< L-M)/S/199a IFP=0THENP=T : P 1 =S*P 

255 <-CLEAR5^GRAF6 ,3i ^COLORI 

E70 IFM>0THEME--M r S- 100 

ESO IFL<0THENE>-L,'S+10d 

300 IFM+L^ -*01 THENGOSUB500 

310 IFA#B< “OTHENGOSUBS00 

4 00 1 --'160 * FORM^ATOBSTEFS : Y-E +FNY< X >SF 1 : IFYM00ORY< - 100THEN420 

4 10 *FL0TI,Y,9 

4 E 0 I=fI + UNEKT 

430 GETASs IFAS^" "GOTO430 

440 <-TEMT 6 ,14 

450 GOTO40 

430 EMD 

500 E - 1 0® -LMS/T t IFE > 100THE1O 100 

510 IFE< - 10OTHEHE- - 100 

520 *-DRAL4- 160, E ,0, 160, E ,0! RETURN 

800 X=-A/9- ! €0 • +DRAWM , - 100, 0,X, I00,0tRETURN 


READY , 








i 

REM 

**** 

MOV IMEMTO 

UTILIZZANDO 

LA 3' DIMENSIONE 

*** + 

E 

REM 

**** 

FREMENDO 

IL 

TASTO 

! LA 

VELOCITA' AUMENTA 

* # * K 

3 

REM 


PREMENDO 

IL 

TASTO 

E DIMINUISCE 

* * * + 


IO P0KE53280 ,6 r «-CLEAR r «-MGRAF3 ,11,1,14 

50 * COLOR3:FORY^0TO100?4-DRA14-ÌB0,Y,0, 1G0,Y,0 iNEKT: REM ** CIELO 
60 s 


30 HTOLOR t s A = - 150 * B -A 
90 M®e*INT<7 + 9*RN0< ì>> 

100 F OR Y “ MT00S TE P -E : A -A -2*RN0< 1 ) - 1 ? B*B+2rtRND< 1> + 1 






J£0 «-DRAWA, Y,0,B f Y,0irEKT 

130 IFB< 180TH£m^B+RMD<: 1 ) * 1 0 : B - A s GOTOS0 ! REM ** MONTI 
140 t 

150 *COLGR i ìFORX=“ I00TO100: ^ORAWX* -100 ,3£000,X, - 100 ,0:NEXT:REM ** STRADA 

* » ih 

1G0 ! 

130 «-COL. OR 2 • FORX = •- 1 0STO- 100STEP2 ! «-DRAWX , - 100 ,0 ,X , - 100 , 10000 iNEXT 

185 FORX- 10OTO I0GSTEP2S «-DRAWX , - 100, 0,X 100 , 1 OOOO : NEXT i REM ** BORDI STRADA 

183 « 

130 REM *** SIMULAZIONE DI MOVIMENTO #*# 

135 B=230:X r 140: «COLORI : «-DRAW0 , - 1 00 ,0 ,0 , -SO ,0 
200 X = -X SGETA : 1FA“ 1ANDB< 320OTHENB=B*2 
210 IFfì-2ANDB>25THENB=B/2 

250 F0RZ"3200T08STEP-B: «-C0L0R3! «-DRAWX ,*,2 ,X,»,Z 
550 «-MGRAF3 , 1 1 ,4 , 14 S «-COLORO : «-MGRAF3 , 11 , 1,14 
T00 «-OR AW$, $,*,*,*,*: NEXT :GOTO20O 

READY. 


10 REM *** DEMO 3D *** 

30 «-CLEAR : «-GRAFG , 3 : «-COLOR 1 

45 REM **# RETTANGOLI DI DIMENSIONI E COORDINATE X,Y IDENTICHE *** 
4G REM *** MA CON DIVERSA DISTANZA DAL PUNTO DI VISTA CZJ *** 

50 FORZATO 15003TEP30O 

SO +-ARC-50, -50,2 , 1 00,50 , . 25* « ,2 . 25* ri ,2# rtX4 
70 MEXT 

30 FOR I =OTO5000 ! MEXT 

145 REM *** STESSO CASO CON I CERCHI *** 

150 *-CLEAR:FORZ=0TO20O0STEP200 
ÌGO «-CIRCLE50,0, 2,30,80 
170 NEXT: STOP 

READY. 


10 REM *** POLIGONI CON ARC *** 

100 «-CLEARSM3RAFG ,3 
200 F0RL“3T0 12 

300 «-COLORI ! «-ARC0 ,0,0 ,100 , 100 ,0 ,2* if ,2* if/L 

400 FOR I=0TO 1000 «MEXT 

500 «-COLORO : «-ARC*, *,*,*,*,*,*,* 

S00 NEXT 
330 ! 

330 REM *** STELLE CON ARC *** 

1000 *-CLEAR:«-GRAFG, 3 ^COLORI 
2000 FORL -0TO2# il3TEP2# (iX3 

3000 «-COLORI : *-ARC0,0 r 0, 100 , 100.L,L+4*n ,4*0.^ 
4000 FOR I =0TO1000! NEXT 
6000 NEXT 

7000 FOR I^0TO5000! NEXT 
READY. 
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□COMMODORE I 4M I — I M B MI 

Accordi 



Se una nota alla volta non è 
sufficiente, ecco per voi un 
programma che genera un intero 
accordo musicale . 


BIBLIOGRAFIA: 

Gentiluccì - Trattato dì teoria con 
riferimenti storici e armonici. 

Edizioni RICORDI 

Guida dì riferimento 
per ìi programmatore 

(Commodore 64) 


1 1 programma qui presentato è in grado 
di generare con la semplice pressione di 
un tasto quattro differenti tipi di accordi: 
maggiore, minore, settima di dominante, 
settima diminuita. 

Il joystick* inserito in porta due* vi per- 
mette di scegliere il tipo di accordo, men- 
tre il tasto Fi re il gruppo di ottave (dispo- 
nete di due gruppi di ottave, tre gravi e 
tre acute). La barra spaziatrice interrom- 
perà il suono che il computer sta generan- 
do* mentre il tasto Control farà riappari- 
re il menù iniziale. 


Il funzionamento 

Nelle prime linee, il computer calcola 
quali sono i parametri delle 94 note dispo- 
nibili nel formato byte basso, byte allo. 1 
valori verranno “pokkati* 1 al momento 
opportuno nei registri della frequenza del 
SID. 

Un po’ di teoria 

Do vete sapere che il sistema musicale si 
basa sulTottava. Si dice che due note sono 
alla distanza di una ottava, quando la 
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frequenza delPuna è doppia rispetto a 
quella deir altra. 

L’ottava è a sua volta divisa in dodici 
parti, chiamate semitoni, ognuna delle 
quali ha un preciso nome (IX), DGdiesis/ 
RE bemolle, RE, REdiesis/MI bemolle, 
Ml,FA,ecc.). 

Se la distanza minima tra due suoni è $1 
semitono (qui occorrerebbe fare una pre- 
cisazione, che evito perchè complichereb- 
be troppo il discorso), conoscendo Ja fre- 
quenza di una certa nota (nota base) è 
possibile, tramite semplici calcoli mate- 
matici, risalire alla frequenza di tutte le 
altre note. 

Per essere più precisi, se FB è la fre- 
quenza base, per trovare FU, cioè la fre- 
quenza del semitono ascendente (La nota 


immediatamente superiore a quella da- 
ta), bisogna moltiplicare FB per il fattore 
radice dodicesima di due (cioè 2 } (1/12)). 
Inversamente, per trovare FL, cioè la fre- 
quenza del semitono discendente (la nula 
immediatamente al di sotto di quella da- 
ta) bisogna dividere FB per il medesimo 
valore. Si può quindi capire che, parten- 
do da un parametro base, si possono velo- 
cemente calcolare tutti gli altri, 

f j maggior parte delle variabili dei 
programma sono dì facile «interpretazio* 
né 1 * (esempio: FAttack/Decay è stato indi- 
cato con AD). 

La variabile MI indica di quante note 
La seconda voce si debba « staccare » dalla 
prima, per poter ottenere l 'effetto accor- 


do. Stesso discorso per La variabile M2, 
ma riferito alla voce tre. 

Alterando il valore di tali variabili, è 
possibile ottenere accordi diversi (ad 
esempio M 1 per l'accordo maggiore è set- 
tato a 4; è sufficiente cambiare questo 
numero senza andare al dì sopra di L 1 o al . 
di sotto di -1 1 e stare a vedere cosa succe- 
de). Potete anche aggiungere nuovi effet- 
ti, o utilizzare i filtri. 

Noti penso che tate operazione sia una 
Còsa estremamente difficile, a patto che si 
conosca sufficientemente il SID. Per colo- 
ro i quali non hanno ancora avuto questo 
piacere (dì conoscere il SID), rimando 
a (l'articolo dei Borioni pubblicato in que- 
sto numero e che dovrebbe chiarire un 
po’ le idee ai meno esperti. 


j 00 REM *** COMMODORE 63 *** 
110 REM *** ACCORDI MUSICALI *** 
120 REM *** BY ENRICO SCELGA *** 
130 REM *** VIA MAGENTA 180 MILANO *** 
130 REM *** TEL * 02/2475129 *** 


150 * 

160 PRINT'VJ" 

170 S I -54872 ! V I =53248 
180 REM 

130 REM SETTA LA FREQUENZA 
£00 REM 

£10 DIMFC 95) ,G< 95) ,KC255> 

£20 FF-F^flfì -PP TNT " PWPM EftMWBHM SETTR LA FREQUENZA Jf 

230 F0RX=95T0 1STEF- t iPRINT"3 a"X 

240 R X> = INT< FF/256) iGS X) = INTC FF-< F< X)*£56) ) 

250 FF=FF/2t( I/1£):NEXTX 

£60 REM 

270 REM 

280 REM 

230 REM 

300 REM****FRESENTAZ IONE**** 

310 REM 

”320 FORX = S I TGS 1 +24 i POKEX ,0 * NEXT 
330 FGKE53280 ,0iP0KE532S l ,4 

350 REM****************** *** *** 

360 REM**# SCELTA EFFETTO *** 

370 REM************************ 

380 S 1 “ IfefeftKUftlftT * REM <CUR-RIGHT> 10 VOLTE 
330 PRINT" n o o n " 

400 PRINT" w w w w 11 

410 FRINT"SMM r 
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420 FR INT 11 


EFFETTI 


i» 


430 

PR 1NTS 1*"®EFFETTG 

4 1 


r~r 

440 

PR INTS 


1 

r 

45© 

PR I NTS 1 * " EFFETTO 

#2 

\ 

r 

466 

FRI NTS 1 $ " 


\ 

r 

470 

PR 1 NTS l$ n EFFETTO 

« 3 

1 

r 

4S0 

FRI NTS 1*" 


ì 

i" 

430 

FRI NTS 1* “EFFETTO 

#4 

UJ M 


500 FRI NT " 13 ^ 

510 irSPUT^QURUE "JEFMF EF = 1 THENGOSUB620 : GOTO560 

530 IF EF -E THEN G03UB 640 s GOTO 560 

530 IF EF ”3 THEN GOSUB 6601 GOTO 560 

540 IF EF = 4 THEN GD5UB 6S0S GOTO 560 

550 GOTO510 

560 FORT=0TQ£ 

570 POKES 1+3+7 *T,QHs FORESI +£ + 7 *T,QL 
560 PQKESI :FQKE5 I +S+7*T,SR 

530 POKES I +4+7+T , FO 
600 NEKTT 

6 10 POKES I +24 *15 3 GOTO700 

630 QL =255 : QH-0 : AD -3 s SR =253 : FO =65 

630 RETURN 

640 QL =0 ; QH=0 : AO-0 : SR -255 iFO“ 1 7 
650 RETURN 

660 QL=0 - QH=0 i AO-0 i SR = 240 » F0 = 33 
670 RETURN 

630 QL=0:QH*0: AD=3I : SR = £55 * F0 = 33 

630 RETURN 

700 REM 

710 PR INT rt LT 

720 PRINT 

730 PR I NT * JOY UP ACCORDI MAGGIORI" 

740 PR INT " JQY RIGHT ACCORDI MINOR I * 




750 PRINT “JOY LEFT 


SETTIMA DOMINANTE" 
SETTIMA DIMINUITA" 

SELEZ IONE OTTAVE ° 

TORNA AL MENU * INI Z IRLE H 
AZZERA LA FREQUENZA H 


760 FR I NT " JOY DO H4 
770 PRINT “PIRE 
7S0 PR INT "CTRL 
730 FRI NT 41 3 P A C E “ BAR 

800 PR INTCHRSC 154 ? 11 B1MDH r" — — ~~ . 

S10 REM CHR*K 154 >=< TASTO COMMODORE X 7 > 

32 0 FRI NT " SII + 1 ^23WmaB567Wnsa»90»+M-EBa»T»t 

830 PR I NT “ | U ajaLERTYU lOPS + tOai 11 | F3J 

840 PRINT" I a^SHA»KB®FlBBGB^JK»^«aw8»=ja 

S53 PRINT 11 . ; / , I 3 ^KCVBm r . HtH I F7| 

380 PRINT" &S t — " 

870 PRINT 1 ' m *- 

380 PR I NT " JF REM I UN TASTO “i FORDE =0TO70 
890 GETA^s IFASK > 11 1J THEhK =70 ì GOTOS40 
300 NEXT 

910 PR INT "CPREMI UN TASTO FGRDE “0TQ70 
320 SETA*: IFA*< >" " THENtt “70 : GOTO840 
930 NEKT = PRINT H m" SGOTO880 


» 


i fu 
I F5( 


» 
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940 REM 

950 REM***5U0 Nfl * * * * 

960 REM 

970 REM F, a u ^CHR^< 18) CIOÈ 1 <CTRL><9> 

930 REM "5"=CHR*< 148? CIOÈ 1 <CTRL><0> 

990 REM H a"=CHR^< 5 ) CIOÈ' <CTRL><£> , 

1000 REM "I 11 ~CHR?< 144) CIOÈ' (CTRLXU 

1010 pR!NT p, iJ*i a a ■ i l a a a a a a I mai a a a 
i0E0 PRiMT"» a m a a \ a a a i i a i a a ■ a i a a a a 

1030 print^m aaa a 33 i aa a© a ara j asa «sa i a-a ac a 

1040 pr ìNt^a i m ii i i m i m r 

1050 FR I NT "5131 01 kl| E| RI T| Y| Ut II 01 PI &l *1 t I" 

1060 PR INTIMI* / 

laro FRiNT“taa« ai a a a a i a a a a a a e 41 

loee PRiNT^uuuaa ai a a a a 1 1 a a a a 1 1 f 

1090 PRiNT n iaauirìa 1 aca apa i ana uà afta e * 

1 100 FRiNT“iaai 3 a 1 1 1 1 1 1 t 1 ■ 

1 1 10 FRINT" M«M ZI Hi CI Vi Bj NI Mi .1 , 

11E0 KYJP= " Q2UI3ER5TG Y7U I9Q0F5J -*£ TfìZXDCFVSHNJPK f ■ " 

1 130 F0RX = 1T0LENC KY$) ; Ki fiSCs M1D$C KY$,X, 1 > ) > 


1 140 
1 150 
I ICO 
! 170 
1 180 
1 190 


NEXT: 0 T= 1 S£F 6^0 
S P$= " 

PR I NTS P * " TTft VA 
PRINTSP*" 


1 " 


i — % 

pr i ntsps n mmjggBamÈm mm^PFE tto b ef 

GETK$ : P£-PE£K< 563E0 > : IFK4K > J< "THEM1S90 


1 I 



Tr: 


1£00 IFPEOW 203;>=60THENGOSU614e0 
1£10 IFPEEKX 6531=4 THENE90 

1££0 IFFE = 1£6THENM1 =4 !M£ = 7 !PR JNTSP* ,, MSM1M v 1AGG1QRE “:BOTOUS0 

1330 IFPE = U3THENMl=3:M£-?sPRmTSP*“fflB8ÌiBMIN0RE ":GOTO1190 

1£40 I FPE = 1 25THENM 1 =a!M? = K{PBiMrsPt‘ «MM—ti iMtMiiTB«;nnTm 190 

1SS0 1FPE = 1H3THENW1 =4 SM£=-£ : PR I NTSP* '’SBMWKIGMI NfìNTE ’’ tGOTOl 130 

1£60 1FPE=1 1 lANDFG = lTHENQT=l£:FG=0iRRmTSP*"|Mi ”SP*" »M I 1»!BOTOU90 

IS70 IFPE=11 !ANGFG=0THENGT=43!FG=1 iPR !NTSP*“ttSJ "SP^'ilME” 


1380 GOTO 11 30 

1E3C 3E=K< ASC< K$1 1 : IFSE = 0THEN1 190 


1300 pr int " amai 





K$ 


1310 POKESl ,(3<SE+0T) 

1 3£0 PGKES ! + 1 ,F< SE + OT? 


1330 POKESI +7 ,G< SE+Ml +0T) 

1340 P0KE3 I +3 ,F< SE+M1 +0T5 
1350 POKESI + 14 ,G< SE+ME+QT? 

1360 PGKESI + 15 ,F< SE+ME+GT1 

1370 FGRT=0TQ£:POKESI +5 + 7+T ,f=lD i POKES I +6 + 7 *T,SR s POKES I +4+7*T ,F0 i NEKT 
1380 FORDE=0TO50 : NEXT 

1330 IFEF=3THENIFPEEK< £03>< >64THEN1330 
1400 FORT=0TQ£iPOKESl+4+7#T,FQ-l (IMEXT 
1410 GOTO 1130 

14£0 FORT=0TO£!PGKES1 +T*7,0 : FOKES I + 1 +T*7 ,0 : NEXTi M1=0:M£=0 
1430 PR I NTSP* " SMsMB# "s RETURN 


READY. 

.or '* • ' , ' ’ * " ' i"-r- * * i*- r?: ’ ’i ’ *i i . '-£4 j\ i /‘Ix'i’.’ 3 • à&IL .a4Ìì 


Égli 
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La rubrica Domande / Risposte si af- 
fianca alTaUro servizio analogo (telefo- 
nico) che. già da tempo, viene offerto 
gratuitamente ai lettori. Purtroppo le te- 
lefonate ricevute negli ultimi tempi sono 
risultate talmente numerose che se da un 
lato scoraggiavano i lettori stessi ad usu- 
fruire del servizio, dalTaltro occupavano 
per gran parte delle giornate di Giovedì e 
Venerdì le nostre linee telefoniche. 

Pur se il servizio telefonico rimane at- 
tivo (anzi, si può telefonare, nei giorni 
suddetti, dalle 15:30 fino alle 19 :30 inve- 
ce che fino alle 18), si consiglia ai lettori 
di utilizzarlo solo in caso di urgenza c di 
casi particolari. Negli altri casi à indi- 
spensabile compilare l’apposito modulo 
riportato nelle ultime pagine della rivista 
cercando di essere brevi, chiari e comple- 
ti nel porre le domande, La risposta ai 
quesiti verrà data nel fascicolo successivo 
a quello presente in edicola al momento 
dell'invio della domanda (ovviamente, 
nei limiti del possibile). 

La corrispondenza che non utilizzerà i 
moduli accennati verrà inesorabilmente 
cestinata (a partire da questo 
momento.,. ). 

Tale provvedimento si rende inevita- 
bile allo scopo di snellire ed automatizza' 
re la corrispondenza. E' superfluo ricor 
dare che in nessun caso si risponderà pri- 
vatamente, ma esclusivamente attraver- 
so la Rivista. 

Abbonamenti & numeri arretrati 

Non e possibile, da parte nostra , invia- 


re contrassegno copie arretrate nè dar cor- 
so ad un abbonamento se non è effe f- 
(unto il versamento in precedenza. Si ten- 
ga presente che il prezzo degli arretrati è 
fissato nel doppio del prezzo dì copertina , 
che ì fascicoli N* 5, 6 e 8 sono esauriti e 
che non si effettuano fotocopie degli 
stessi . 

Argomenti trattati 
da Commodore Computer Club 

La Redazione affronta temi, program- 
mi ed argomenti che ritiene di interesse 
generale. Alle diverse scelte giunge at- 
traverso le telefonate pervenute e (da 
circa un mese) attraverso il giudizio sui 
vari programmi espresso dai lettori che 
compilano l'apposito modulo, 

Se, pertanto, un argomento vi interes- 
sa più degli altri, comunicatelo. Se il nu- 
mero di analoghe richieste sarà giudicato 
sufficiente è addirittura possibile aprire 
una rubrica fissa dedicata a quell’argo- 
mcnto. 

Piccoli annunci 

In linea di massima vengono cestinati o 
alterata gli annunci che “puzzano" dì spe- 
culazioni commerciali. Sono accettati 
senza riserve gli annunci di vendita di ap- 
parecchi usati e di scambi di software. 

Nuovo servizio: 
cerco / offro consulenza 

I lettori interessali troveranno, in uno 


dei moduli in fondo alla rivista, un nuovo 
servizio» andriesso gratuito. Potranno 
utilizzarlo sia il professionista che inten- 
de migliorare la propria posizione» sia lo 
studente che, disponendo di tempo libe- 
ro al pomeriggio, intenda svolgere fatti- 
vità di dimostratore presso pumi di ri- 
vendita di personal computer, 

Gli operatori economici che svolgono 
l'attività nel campo dell'elaborazione 
personale potranno analogamente di- 
sporre dì una serie di nominativi tra cui 
individuare l'esperto programmatore, il 
docente di corsi didattici oppure» sempli- 
cemente. un convincente ed appassiona- 
to dimostratore. 

Si tenga presente che in ogni caso qual- 
siasi corrispondenza non verrà presa in 
considerazione se non sì utilizzeranno gii 
appositi moduli. 
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T re Programmi 
sulle Equazioni 


// computer vi aiuta a studiare 
tre argomenti trattati in molti testi 
scolastici di matematica , 


10 INPUT À,B,C 

20 XI— (-B-$QR(B*K-4*À*C))/(2*A) 
30 X2=(-B“hSQR(B ¥ B-4* A*C))/|2* A) 
40 PRIM “SOLUZIONI : "XI, X2 

Il program ma sembra fin ito « funzio- 


Prog ramina numero 1: equazione 
dì secondo grado 


C questo il primo dei tre programmi 
di matematica ed è, certamente, il più 
banale: chiunque conosca un po' di mate- 
matica e un po’ dì basic, prima o poi avrà 
realizzato un programma simile. Anzi, a 
dire la verità, questo è stato il mio primo 
programma, realizzato poco dopo rac- 
quieto del computer. Ma allora , visto che 
è cosi facile, perchè pubblicarlo? 

I motivi sono due: il primo è per com- 
pletezza: non si può partire dalle disequa- 
rioni senza aver prima studiato le equa- 
zioni. Il secondo è che questo program- 
ma, Insieme al programma “disequazio- 
ni", serve a spiegare e a comprendere il 
terzo programma, il più difficile da rea- 
lizzare: quello delle equazioni 

parametri eli e. 

Vediamo ora di analizzare il primo li- 
stato. Sapendo che se 
aXj2-hbX“fc—0 è una equazione di se- 
condo grado, te sue radici, cioè i valori di 
X per cui Inequazione è verificata sono; 


Xt=(-b-SQR(b'b4VcM2*a) 
X2=(-b+SQR(b"b-4 v a*c»/(2 + a) 
innanzitutto bisognerà chiedere all' utiliz- 
zato re del programma i tre coefficienti 
a,b,C e poi far calcolare al computer le 
soluzioni XI e X2. 

Il programma potrebbe allora essere: 


naiite. Proviamo però ad inserire come 
dati dei coefficienti: 0,2,3. 

Che cosa succede? Viene visualizzato 
un BrVISlON BY ZERO ERROR IN 20. 
Ciò significa che il programma, seppur 
teoricamente valido, non era completo? 
bisognava prevedere il caso in cui “A” 
fosse stato uguale a zero, aggiungendo la 
linea seguente: 

12 IF A=G THEN PRINT “L’EQUA- 
ZIONE NON E* DI SECONDO GRA- 
DO": END 

Vi sono altri casi, però, per i quali sono 
necessarie ulteriori istruzioni nel pro- 
gramma. Primo fra tutti è 11 caso in cui 
B + B-4* A*C sìa minore di zero. In questo 
caso si avrebbe infatti r errore “ILLE- 
GAL QUANTITY ERROR IN 20 >f . Biso- 
gnerà aggiungere, allora, la linea 
seguente: 

14 IF B*B-4*A*C < iì THEN PRINT 
“NESSUNA SOLUZIONE”: END 

Ci sarebbe poi il caso in cui il DELTA, 
cioè B*B-4*A*C è uguale a zero. In que- 
sto caso le radici sono coincidenti, cioè 
X1=X2, 

Si può quindi aggiungere La linea: 

16 IF B*B-4*À*C = « THEN PRINT 
“SOLUZIONI COINCIDENTI": 
X1=X2— “B/{2*À): END 

Sì pussuno poi apportare al program- 
ma altre modifiche, anche di carattere 
estetico. Da questo esempio si deve capire 
che anche nel più semplice dei program- 


mi bisogna fare attenzione a prevedere 
tutti i casi possibili e a “spiegarli" ai com- 
puter, altrimenti “lui" non se ne accor- 
ge, con la conseguenza, nel migliore dei 
casi, che il programma si blocchi con un 
ERROR IN... 

Proviamo ora ad inserire i seguenti 
coefficienti: 

1) a =2 h=1 c^1 
2} a=l b=2 c=l 
3> a— 1 b=3 t— -4 
4) a— 0 h=l c=2 

e controlliamo come il computer questa 
volta non si fermi con un. errore. 

Programma numero 2: 
disequazioni di secondo grado 

1 1 secondo programma serve a risolvere 
le disequazioni di secondo grado e, a mo- 
strarne la positività o meno mediante un 
grafico. 

Le disequazioni sì presentano sotto la 
forma generale: 

a.sf 3 +b.xH-c>< 0 

Anche per questo programma bisogne- 
rà introdurre i valori dei tre coefficienti 
a,b,c, e, ovviamente, il verso della dise- 
quazione (“>" oppure "<")♦ Proviamo 
ad introdurre i dati mostrati sopra per le 
equazioni c a provare a dare verso mag- 
giore (>} o minore (<> con gli stessi dati. 
Noteremo delle differenze notevoli fra I 
vari grafici. Provate poi a risolvere ma- 
nualmente (carta e penna) le disequazioni 
così ottenute e verificatene f esattezza 
delle soluzioni. In caso contrario control- 
late il programma e, se questo risulta 
esatto, controllate... la vostra prepara- 
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!ft programmi taillf^uMon! 



zinne in matematica: il computer (se il 
programma e copiato correttamente) non 
sbaglia mai... 

Programma numero 3: equazioni 
parametriche 

U nu equazione parametrlca è una 
equazione i cui coefficienti dipendono da 
uno o più lettere dette parametri. 

Nel nostro caso il parametro e unitario 
ed è di primo grado: K. L’equazione inve- 
ce è di secondo grado. 

Poiché le radici di una equazione di- 
pendono , come si può notare nei due pro- 
grammi precedenti dai coefficienti, se 
questi, a loro volta, dipendono da para- 
metri, si può affermare, come del resto è 
ovvio a priori, che le radici di una equa- 
zione parametrica funzioni dei parametri 
che figurano neirequazkme parametrica 
stessa* 

Risolvere una equazione parametrica 
significa allora trovare per quali valori 
del parametro le radici dèli’ equazione ve- 
rificano particolari condizioni loro impo- 
ste. Nel nostro caso le condizioni sono che 
le radici dell’ equazione siano comprese 
tra due numeri assegnati LI e L2. 

Il metodo di risoluzione che viene inse- 
gnato a scuola, ovvia mente alle superiori, 
è quello di fare una sorta di grafico in 
funzione del parametro K, in cui viene 
indicata la positività del delta, la positivi- 
tà del coefficiente del termine di secondo 
grado (A), la positività della funzione X 
uguale al primo limite (LI) C per X uguale 
al Secondo lìmite (L2), cioè i due numeri 
fra i quali le radici de 11 1 equazione do- 
vranno essere comprese. 

Viene inoltre indicata la positività dì 
(SIGMA - LI) e (SIGMA - L2), sapendo 
che SIGMA — -b/2a e rappresenta la se- 
rri isom ma delle radici di una equazione di 
secondo grado, 

Possiamo vedere il grafico nella figura 
in cui viene risolta f equa zio ne parame- 
trica di secondo grado: 

(K*nXU-{4+2K)X-3+K=0 

con d<X<2 

In questo caso i dati da introdurre nel 
computer sono; 


*1,1, -4, -2, -3, 1,-1, 2 

crolliamo di capire ora come si fa a 
leggere ed in ter prela re il grafico così otte- 
nuto. I numeri fra parentesi (quelli della 
positività di sigma) non sono capisaldi dì 
discussione, e vanno quindi ignorati* Per 
trovare le soluzioni bisognerà osservare 
ogni intervallo, cioè gii intervalli K<-l/8* 

K= 1/8, -1/8<K<0, K=0 e così via* 
Vediamo ora cosa succede in ogni in- 
tervallo, quindi quante soluzioni ci sono 
;0, l Ù 2). 

1) K<-l/8 Delta negativo; nessuna 
soluzione, 

2) K=t/8 delta =0 X1=X2 À<0 e f(-l) 
<0: radice alfestemo, ed essendo sig- 
ma + K0, le radici saranno alla sinistra 
ddPintervaìlo, cioè: 

XI=X2 -I 2 

Nessuna soluzione 

3) -1/B<K<0 

XI alla sinistra dell 1 intervallo. 

X2 alla sinistra dell 7 intervallo. 

XI X2 : -1 2 

Nessuna soluzione* 

4) K— 0 

XI X2--1 2 

Una soluzione limite. 

5) t)<K< I 

XI -I X2 2 

Una soluzione ordinaria* 

5) K=I : A=0 Liquazione è di primo 
grado; XI =-1/3, che è compreso 
nell intervallo; 

Una soluzione. 

7) 1<K<15 

-I XI 2 X2 

Una soluzione. 

ft) K“ 13 


1 XI X2=2 

Due soluzioni di cui una limite. 

9) K<15 

-I XI X2 2 
Due soluzioni. 

Il procedimento adottato nel program- 
ma è il medesimo: il computer cioè calcola 
la positività del delta, di A, di f(LI) e dì 
f(L2) (risolvendo parecchie disequazioni 
dì secondo grado) con la differenza che 
non calcola SIGM A -L* 

A “lui 14 basta sostituire a K un valore 
che appartiene all 1 intervallo considerato 
e vedere se le radici X i e X2 sono compre- 
se fra L I e L2 o meno* 

E* questa ['“astuzia’ 1 del listato, per- 
chè se il computer avesse dovuto calcolare 
$IGMA*L, conseguentemente avrebbe 
dovuto leggere il grafico, cosa che avreb- 
be richiesto un programma molto più 
complesso* 

Provate ora ad inserire i dati dell’ equa- 
zione paranielrica discussa prima, e veri- 
ficaie che le soluzioni date dal computer 
sono esatte (nel caso contrario controllate 
il programma, avrete fatto un errore di 
copiatura: capita). 

Provate quindi a risolvere (a mano!, 
così, vi esercitate) te equazioni parametri- 
che seguenti e controllate le vostre solu- 
zioni con quelle date dal computer, verifi* 
cardo cosi ulteriormente il programma, e 
anche voi stessi... 

1) X|2+4X-K+3=0 -1<X<S 

2) Xt2-2x+K-5=0 0<X<2 

3) Xt2-2X+3K-2=0 -1<X<3 

4Hk-l)XI2-2fk+3)X+K-S-3<X<2 

Nota 

C hi volesse avere più informazioni sul- 
le equazioni parametriche può consultare 
qualunque testo di matematica per liceo 
scientifico* Gli esempi sopra riportati so- 
no presi da! volume: “Elementi dì alge- 
bra 11 di R. Ferrante, editrice Dante 
Alighieri. 

Giovanni Bellù 
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risoluzioni: 


1) 

K < -1/S 

0 SOLUZIONI 

2) 

K = *1/3 

0 SOLUZIONI 

3) 

-1/8<K<e( 

fi SOLUZIONI 

4) 

K - 0 

1 SOLUZIONE 

5) 

0<K< 1 

1 SOLUZIONE 

6) 

K = 1 

i SOLUZIONE 

7) 

1 <K< 15 

1 SOLUZIONE 

8) 

K= 15 

2 SOLUZIONI 

9) 

K > 1 5 

2 SOLUZIONI 



System market s.a.s. 

Vendita per corrispondenza di programmi 
e accessori per VIC 20 e Commodore 64 

50121 Firenze - Via Cimature, 19 - Tel. 672981 


Oh Liofili per Commodore 64 \Dì 

L d OH i ( kit knse r:.c,:.' ziro con ojsnpo$i*iicw ce! 
dotto finito, bolle di acaHnpj^ajsitrnto, riunir azione in ai* 
tKSaiiaj c siianuile, «poni I V A.. ewttsMhà cSicmi/f or- 
dini L 210.000 

Cod. 011)5 - Marrano, 1&D0 Arridili 

Carico e sode;-, gì finale Jj magazzini?', importi J.V, A c 
imponibili, stampa articoli so: rosetta, liww prezzi si na- 
zione di jilaaazKinp, tvlnsàffle rimanerne » costò raediq 
ponderali, elenco articoli in ordine in alfabetico e tame il- 
tre funzioni. Può essere u» in unione al Programma Cai, 
0106 uiiiiz3t:i*ìdci b stesse disco archivi. L. 110,000 

Cod. 0106 - FalturtrioraL 

Comahiliù i V A, dienti tcfratcìi. 
j m dienti Stanila fatiun: in più copte, tratte e jEccs ute 
bendile n [oea*iioo. eleva dienri in ordine alfabetico 
eoe ere Può essere usato anche in untone ni Prc^ramiiu 
Cod. 0305. L."95,0tì0 

GwL 0121 ■ Gestione Consumi 

3000 articoli ci. magazzino, Controllo consumi a quantità 
e hlotv L'C-J'i i isc.i'ì! 1 sitile a. affliti nrevcMlvato, importo 
de^!i acquàri e dei coaswm i : rakmc di acqiiistg e/o C.M 
Ponderato. Stampa inventario irrigale e nna'e. Ideale per 
aziende di Pjod.uzicoe cìsiomaiì» mense aziendali, ect.i. 

L. 150,000 

Ciad. 0122 - Magazzino Industriile 

Gestisce fifa' a 5400 articoli divisi ira ccncré pnnt. se- 
milavotaii c prodotti :irii::. iAwuKiatol L. ISO, 000 


Cocl. 012$ - GriefL Clinica 

Gestione schedario pei Ifjr* Medici con ampi a di- 
spoririooc per dati anagrafici, imam-si, terapie d esami. 
Mé~or:3z.:;ÌTiì' e scampa della ricetta per* singolo pazieri- 
te S JJ. Li fiata bipartite è tfciitmk pr ci wdxtiM 
fcoimirtf dù m me). L. 170.W 

Cori 0126 - Gestione Dentarli 

Schedari-.! ]*: nudi detltiitic i Per Ogni piente t aievkta 
uria patte àf,apr.ilica c una parte schematica della der.CìtU' 
ra Si può annotare per ogni paziente la quantità e i tipi 
di interrente VisuasHMione e 5taif.ua aaxmi e saldo. 

L. 140.000 

tod, 0152 ■ Mailing lisi 

G«?isc finsi a 2000 indirizzi completi più un campo di 
note. Siasi jm etichette per codice nominativo o per (iodi 
ce di Avviamento Fasta». Tabulato generale ed elenco no- 
minarvi in «dine alfabetico t/o é CAP L. 85.000 


Gm), 0135 ■ Cento Coniente L. 59.000 

God. OOW - Archivio Dischi 

ELrik e veloce metodo per indÉvtdiiàK: in fiochi iecondi ri 
dìsHivazic tx ti: tenari programma. Cinipi e:::!wt?e e ca- 
’aksjra l conttn ito dei dischi ordinando aJùbctìramemte e 
per tipo di programma. L. 65.000 


LEGENDA E CONDIZIONI 

D = Disto, N Niij-r'j. E - Manuale Inglese, V - Vidcj i duro. I Programmi non specificati nella suddetta legenda sono 
corredai i dì Manuale b Italiano. ì Presti sono da intendersi I V.A esclusa. 

Inviliamo tulli gti inuressaiì a cfrnraEiaró per ricevere il catalogo completo e gratuito , 


Uftttdproces 

I.uìv JjcrLp: 
Spetti Script (A 
Vie Stiecd Script 
Ciicotarì 


Utility Varie 

Pel Sped 

Anatre Compdtr 
t\Soni[or 
Assembler 
Turbo Tabe 
Disk Eevaler 
Compact or/ktmp 
Master 
Super Base 
Data Hast 
Basic 4.0 
Fasi Copy 
Super Copy 
Super Copy Tape 
SO Cobdùe 
Doctors M 
P.C. interface 
Asidogf 
I Baie e LM. 
1 jti Uso Sprite 
Tele alci) 

Super Seri 


Gtiri-m e Musicai 
Character C-tntr. 
Spriie Gencrator 
Scrtert Graphics 


75.000 (D) 
mm 'iD/Ni 

65.000 !>'N- 

35.000 ! D/ Vj 


60.000 (D,'E- 

eo.000 tm 

29.000 [D/N.i 
4? OQO (D/Ni 

29.000 [DATi 
B.m (D/NI 

45.000 !D) 

110.000 iD) 

120.000 (p/E) 

60.000 mi) 
nm rìm 

. J5.0W (P/V) 

59.000 (D/V) 

55.000 (D/N) 

45.000 m'\ 

40.000 (WN1 
59.0® iD/Nj 

60.000 [D/NÌ 

45.000 (D/Vi 

45.000 iDA'i 

60.000 (D/Nj 

37.000 (D/N) 


29.000 IDI 
29.000 (Dì 
80. COG (D/Ni 


Koala J oriti A 

90.00U (Di 

Synibównd 

55,000 (D) 

Babv-Grand 

}9,ooo mi 

Sam R«iter 

85,000 mi 

Novità 

£ 5 LK5t3ck 

Graptic Leghe c l^n 
Sofrv.'aiÉ 1 

90.000 (D/NÌ 

Tech Sketch 

135.000 

Ughi Pen e Micro Bkairator 

Conuindcw VIC 20: 

Dfta B-ìue 

40,000 

40 Co-amit 

40.000 (D/N) 

(.-. indiiiz/i 40C . 

65.000 ID) 

Accessori: 

Suwedriu 

107,000 

Ì6K Eswns SOM per VIC 20 GK. 8K. 
16K Svltcbàble! 

Dischi corri, 10 

40.000 

Joystick GW! anger 

Spirto rsptde 

Lo prottitonc ideale 
per VIC 20 t Ccm- 
aodore 64 

22,000 

Cocìtp.ftttttaor 

20.000 


4 


Ed inoltre t- ultime noviia dci.t più la- 
utese Sob-a?; ! ìcuse Mondiali nel cast- 
;:o dei Videogame (US, Gdd r Syitap 
Se, Creative Solfa are, Siateseli, Ocein 
Sofiware eoe.}. 
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T tv prggramna Lolite iijtLiikiiii 


100 REM EQUAZIONI DI 5ECQM3Q GRADO 
1 10 : 

ì£0 REM PROGRAMMA PER C64 £ VIC £0 
130 : 

140 I NPUT * kJh ,B,C n rA,B,C 

150 I Fft=0THENPR 1NT" L 1 EQUAZ IONE NON E ' DI SECONDO GRADO H : END 
160 ! F< B^B-4*fl*CX0THENPR INT H NE5SUNft SOLUZ IONE “ - END 

170 IFB*B~4*A+C=0THENPR 1NT" SOLUZ IONI CO INCIDENTI X 1 =X2 = M J -B/< S:*A ) SEND 
1S0 Xl K ~B*5QR< ?/< 2*A> 

190 X2 = < -6+SQRC B*B-4*A*C) >/Y Etri? 

280 PEINT"SOLUZ IONI :*Xi,X2 

READY. 


100 
1 10 
1 20 
130 

1 40 
I 50 
160 
170 
180 
190 
200 

2 10 
220 
230 
£40 
250 
260 


REM 

REM 

REM 

REE*! 

REM 

REM 

REM 


DISEQUAZIONI DI SECONDO GRADO 


GIOVANNI BELLO 
SOFTWARE 


REM 

REM 1984 


REM 

REM 


REM VIA GIARDINI 20 SEREGNQ CM l) 
REM 

REM TEL - 03 G 2/23 9 530 

REM 

REM PULISCE SCHERMO 


PR 


270 
280 
290 
308 
3 10 
320 
330 
346 
350 


REM SFONDO NERO 
POKE53HS0,0iPOftE53£Si ,0 
REM PRESENTAZIONE 

PR 1NTTABC 6 > "SOLUZIONE DI D1SEQUAZ IONI 31" 
PRINTTABC 10) "DI SECONDO GRADO" 

PR INTTABC 7 > " WCT3 EL TIPO: S|AXT2*BX + CX =0 “ 
P R I NT 11 TOME! INTRODUCI I VALORI DI k^B,CU JI 
REM INPUT COEFFICIENTI 
IMPUTA, B.C 


360 REM CONTROLLO VALORI INTRODOTTI 
370 IFA=BANDB=0ANDC=0THEN£60 

380 TFfi= 0 THENPRlNT \Jai LA DISEQUAZIONE NON E DI SECONDO GRADO " 
390 I F B ~0 ANDÒ =0 AND A >0 THENPR I NT '* A DISEQUAZIONE E 1 SEMPRE >0 Ji 
488 IFB = 0ANDC=0ANDA< 0THENPR INT DISEQUAZIONE E* SEMPRE <0 U 

4 10 PR INT 11 k INTRODUC 3 IL VERSO <<>?" 

420 G£TA$: IFA$< >",”ANDA^< "THEN420 
430 IFA$=*' , "THEMA$="< " 

440 I FA-£ = " - f, THENA*- H >* 


i END 
: E ND 
;END 


i 
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450 REM CALCOLO DELTA 
460 DX=B+B-4*A*€ 


470 I FDX< BANDA >0THENPR INT 
430 IFDX<0ANDA< 0THENFR I NT M JiSLH 
4S0 IFDX=0RNDR>0THEHPRINT° fc 2aa J R 
500 I F OH =0 ANO FK 0THENPR iNT- LM. ft 
510 X 1 “B-SQR^ OX> >X( 2*A > 

520 X2 = C - B + SQR< OH > > /< £ * F! > 

530 IFX 1 >X£THENX=X I :Xl =X8:X2=X 


DISEQUAZIONE E‘ 
DISEQUAZIONE E* 
DISEQUAZIONE E' 
DISEQUAZIONE E ' 


SEMPRE 

SEMPRE 

SEMPRE 

SEMPRE 


540 IFA$ = 11 > "AND A >0THENB$~ " “0 O— 

550 IFA^a 1 * >"BNDA<0THEF©$= w - — 0 O 

560 IFR£="< H ANDA< Q.THENBS= “ — — 0~ — O— 

570 IFfì$* tt ^ < ’ANDft>0THENE:Jr= »— 0“ “G “ 


5B0 D$= " — — — ' — — -, 11 

590 I F E ^ = 11 + 11 THE NF $ = " 4 I - ] + " 

600 IFE$= " "- #I THENF^= *' I + I 

6 10 C*= * I I" 

620 PRINT" JSOLUZ IGNE ! " 

630 PR I NTBS: PR I NTC$ : PR INTF M* PR I NTC$ ! PR I NTDS 
640 PR INTTABC 8 >X1 = PR INTTABC 19)X2 
650 PR I NT 11 Bina I DATI ERANO: " 

660 PR INT' 1 A” "A 


>0 " « END 
< 0 * : END 

>0" SGOTO750 
s0" i GOTO 750 


E*- 11 + " 
E$ = » - 11 

= n 4 " 

ES=**- É!i 


670 FR I NT “ 6 “ " B 
SSD PR JNT H C = 11 C 


G30 PR INT H VERSO : "R$ 

700 FRTNT"a RADICI f " 

710 FRINT^Xl ="Xt 
720 PR 1 NT "X2~ " X£ 

730 REM RITARDO DI 5 SECONp I 
740 FORK - 1 TO5000 : NEXT s END 
750 REM SE OH =0 

76© PR INT 11 SUNO ZERO PER X = H ;-B/{E*ft) 


READY. 


COMMODORE 64 


EQUAZIONI PARAMETR ICHE 


10 REM 
20 : 

30 REM 
40 s 

50 : 

200 REM SFONDO BLU 
2 10 POKE53280 f B :P0KE532S 1 ?& 
2£0 REM PULISCE SCHERMO 
£30 REM PRESENTAZIONE 
£40 PR lNT"tk'* 


£50 

260 

270 

230 


PR INT U 
FRI NT T 
FRI NT M ; 
PR INT 


PROGRAMMA PER LA S0LUZIOF&; 01" 
jg( EQUAZIONI PARAMETR ICHE * 
DEL TIPO : " 

< A +QK ) X t8 +C B +EK ) X +C +*FK =0 " 
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£90 PR I NT * S 


L 1< X< LE 11 

GIOVANNI BELLU 
SOFTWARE " 


300 FRI NT " MKBBIB 


310 PRINT B H 

3E0 PRINT"H 

330 REM RITARDO 

340 FORK= 1TO4000: NEMT 


1 984 " 


350 REM INPUT OATI 
3G0 PR 1NT "iJ 
370 PRINT“M 


( A+DK>Ht2-K B+EK)X+C+FK=0 
L 1< X< LE “ 


330 PR INT "BEJINTRODUC I I VALORI DI: A,D,B r E,C,F,LI , LE " 

390 PRINT"KS* ! INPUTft ,0,B,E,C,F^Ll ,L3 

400 REM PRIMO CONTROLLO DATI 

410 IFL 1 >L2THENRUN 

4E0 REM A >=0 (A+DK>=0) 

430 PRINT“Lia A >=0 “ 

440 IFD=0THEN470 
450 IFD< 0THEN500 

460 AA=-A/D SPRINT"- — “C“ — : PR INTAft : S0TO5 1 0 

470 IFA J-0THENPRINT" ” : AA=939 1 G0T05 10 

480 IFA<0THENPR INT* “ :GOTO510 

490 PR INT "a ERRORE ■ : END 

500 AA = -A/DtPRINT’'“— -O * : PR INTAA : G0T05 10 

510 REM 1) DELTA >=0 

5£0 REM < Et£-4DF>Kt2+< 2BE-4FA-4CD >K+B tE~4AC >=0 

530 U£=E*E-4*D*F 

540 I FUE =0THEN5S0 

550 GOTO790 

560 REM A) ETE-4DF=0 

570 REM BELTÀ DIVENTA: < EBE -4FA-4CD )K +Bt£-4AC > = 0 
580 REM TRE CASI! 

530 U1=£*B*E-4*F*A-4*C*0 

600 I FU 1 =0THEN630 

610 IFU I J0THEN73B 

6E0 IRJ 1 < 0THEN760 

630 REM PRIMO CASO: U1=0 

640 REM £BE-4FA-4CD=0 

G50 REM CI SONO TRE SOTTOCASIS 

660 U=B*B-4*A*C 

670 REM PRIMO SOTTOCASO: 

680 IFU >0THENO*=** * : BOTO 1080 

630 REM SECONDO SOTTOCASO: 

700 I FU< 0THEND$= — 1 BOTO 1080 

710 REM TERZO SOTTOCASO: 

7E0 IFU=0TMENPRINT‘ja NON CI SONO SOLUZ IONI *: END 
730 REM SECONDO CASO : U1>0 

740 K 1 =< 4*A*C-B*B ■>/<. E*B*E-4*F*A-4*C*D > :KE=K1 

750 D$=“ O 11 : GOTO 1080 

760 REM TERZO CASO ì UK0 

770 K 1 =< 4*A#C-B#B ì/{ E*B*E -4 *F *R-4*C*D ) :KS = K 1 

780 D$=‘‘ O- “ : GOTO 1086 

790 REM B ) CALCOLO DEL ‘DELTA K' 

800 REM DK=( EBE-4FA-4CD ) t2-4< BtE~4AC>( ETE-4DF J 
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8 10 DK =< g*B*E-4*F*A-4*C*D ? *< £*B*E ~4*F*A-4 +C*D > 

820 DK=0K-4*C 6+B-4+A+C) *< £+E-4fcD*F > 

830 IFDK=0THENS60 

340 IFDK >0THEM330 

350 I F D K < 0THEN1040 

860 REM PR IHO CASO : DK*0 

870 K = -C £*B#E-4*F*A“4*C*P>/< H+E+E-B+D+F > 

830 Kl=Ki K2-K : REM SOLUZIONI COINCIDENTI 
330 U3 =E *E -4 +D+F 

300 IFU3>0THEND$= " Q 

3 10 IFU3<-0THEND'»« ,r & 

9£0 GOTO 1080 

936 REM SECONDO CASO : DK >0 

340 K1 »-< < £*B+E“4*F*A~4*C*D? -SGR< DK ? >/< £*E*E-8*0*F > 

950 K2 fc “< < £*e*E-4*F*A-4*C*0 > + SGR<; DK > > /< 2*E+E~8*D*F > 

980 I FK 1 >K2THENK =K 1 t K 1 -K2 : K2 «K 

970 U3 “E *£ -4 *D *F 

980 REM PRIMO CRSO : U3 >0 

990 IFU3>0THENO^^ >I — Ù — — O "SGOTO1030 

2000 REM SECONDO CRSO J U3< 0 

1010 I FU3< 0THE MD^ - “ ~p ■ O — M : GOTO 1080 

1020 IFX 1 >”L 1 ANDX 1 < = L£THENPR INT 11 JgJNA SOLUZ IONE 11 i RETURN 

1030 PR I NT "NESSUNA SOLUZ I ONE " : RETURN 

1040 REM TERZO CASO : 0K<0 

1050 U3-EtE“4*D *F 

1080 IFU3}0TH£ND£= ll “““ “ 1 • » 

1070 IFU3< 0THENPRINT”Lia NESSUNA SOLUZIONE ! DELTA SEMPRE <0 * : END 
1030 PR I NT "SI DELTA B*DS: PR I WT^K I = "K 1 i PR INT , *KH= *K2 
1090 REM B> F< LI? > = 0 

1100 REM C OLtP+ELFF )K+ALTE+BL+C >'0 
1110 L =L 1 i U4 =0 *L *L +E *L +F 
1 120 IFU4=0THEN1 150 
1 130 IFU4 >0THEN 1 E 1 0 

1 140 I F U 4 < 0THEN1340 
1150 REM PRIMO CASO 

2 16G U5-R*L*L+8*LM: 

1170 IFU5 = 0THENPRlNT"iJa ERRORE NEI DAT I : FC L 1 > SEMPRE =0 ,+ : END 

1 130 IFU5>0THENL!$= " — * 1 GOTO 1270 

1 130 I FU 5 < 0 THEHL i $ = “■ '* 36OTO1270 

1 £00 END 

1210 REM SECONDO CASO : U4 >0 

1220 F i = -C A£L*L+B*L+C>/< D*L*L+E*L*F > 

1230 L 1 T - ” “ — — o "= GOTO 1270 

1 £40 REM TERZO CASG:U4<0 

1250 F !»-(' A*L*L+8*L+C>/< D+L+L+E+L+F > 

1 £60 L 1$“ * — 0~ - : GOTO 1 £70 

1270 PRlNT"a F(L1) ■" L 1 $ ! F R I NT '* F< LI > = “ F 1 
1230 REM 3? F< L2 ? >=& 

1290 REM C DL t2^EL +F )K+AL t2+BL+C > = 0 

1300 L=L2fU4=G#L*L+E*L+F 
13 10 I FU4 = 0THEN1 340 
1320 IFU4 >0THEN1400 


66 - Computer C futi 


Tft prournmini 


1330 IFU4C 0THEN1430 
1340 REM PRIMO CASO 
1350 U5=A*L*L<-B*L+C 

1 3G0 IFU5=0THENPR I NT” LUI ERRORE NEI DATI: FC L 1 1 SEMPRE =0 " : END 

1370 IFU5 >0THENL2$= " GOTO 1460 

1380 1FU5< 0THENL2$= 11 "ÌGOTO1460 

1330 END 

1406 REM SECONDO CASQ:U4>0 

14 10 - FE = -< A*L*L+B*L+C1/C D*L*L+E*L+F 1 

1420 L 2 TS="- — — o — " ■ GOTO 1460 

1430 REM TERZO -CASO: U4< 0 

1440 F£ = -C A*L*L+B*L+C1/C D*L*L+E*L+F > 

1450 L2$=" □ “i GOTO 1460 

1460 PRINT”a FC L2 ) H“L£*s PR INT'TC L2 1 = "F2 
1470 REM ULTIMA PARTE : ELABORAZ I ONE DATI 
1430 REM E RICERCA DELLE SOLUZIONI 
1430 REM 

1500 IFD^-" “ORD**" “"THENNO = l : GOTO 1530 

1510 IFKl=K2THENND=2!fK 1 1 =K 1 : GOTO 1530 
1520 A< 1 1*K1 : AC 21=K2:N0=3 

1530 AC NO 1 =F 1 :NO=ND+l SAC ND1=F£: IFAAC >393THENN0=N0+ 1 :A< NO 1 =AA 
1540 FORK= ITONO-1 
1550 FQR J=K+ 1 TONO 

1560 IFAC J X A< K 1 THENZ =A< K > : AC K 1 =AC J > : AC J ) =Z 
1570 IFAC J 1 =A< K1THEN160S 
1530 NEXTsFEXT 
1530 GOTO 1623 

1630 Z = AC NOI : AC ND 1=AC J1 : AC J 1 =Z ! K =3*. J -3 : ND^ND - 1 

1610 NEXTsNEXT: GOTO 1540 

1620 REM CALCOLO SOLUZIONI 

1630 AS=“||«— “ : IF ND=1 THEN GOTO 1630 

1640 IF ND=2 THEN GOTO 1730 

1650 IF NO =3 THEN GOTO 1730 

1660 IF NO =4 THEN GOTO 1870 

1670 IF ND=5 THEN GOTO 1370 

1630 PRINT” a ERRORE "SENO 

1630 K=ftC 1 1 -50 SPRINT “K< “AC 1 >1 A*; : GOSUB2090 
1700 K=AC 1 ) SPRINT "K="K; A^? :GOSUB2090 
1710 K=AC 1 1 +50 ! PR INT"K > "AC 1 );A3>; SGOSUB2090 
1720 FORK = 1 TO5000 s MEXTS ENO 

1730 K=AC 1 1 -50 : PR INT "K< "AC 1 1; A*; SGO3UB2090 
1740 K = AC 1 1 s PR JNT" K= ”K ? A$; SGOSUB2030 

1750 K = C AC 2) -AC 1 1*SGNC AC 111 I/ESPR INTAC 1 1 "<K< “AC 21 ; ASO : GOSUB2090 

1760 K=AC 2) SPRJNT"K="KI A$; s GOSUB2030 

1770 K=AC 2>+50:PRINTT"K > "AC 21; A*; = GOSU82090 

1730 FORK- 1TO5000 ! NEXT* END 

1790 K=AC 1 1 -50 : PR INT" K< "AC 1 l;A*l SGO3UB2090 
1300 K=A< l 1 : PR INT“K = “K1 Ai; t GOSUB2090 

1310 K=C AC 21 -AC 1 1*SGNC AC 1 1 1 1/2 SPR INTAC 1 1 "<K< "AC 21 ; A»; : GOSUB8090 
1820 K=AC 21sFRINT“K = ”K;A$; s GOSUB2090 

1830 K=C AC 3) -AC 2 !*SGNC AC 2) 1 1/2 :PR INTAC 21 "<K< " AC 3 > ; A$; SGOSUB2030 
1840 K=A< 3)‘.PRINT"K=“KJA*; SGOSUB2090 
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1850 K=A\ 3> +50SPR INT"K VAI 3 > J A$J : GQSUBS030 
1S60 FORK= 1 TO5000 : NEXT : END 

1870 K=A1 1 >-50iPRINT"K< "Al SGOSUBE090 

1380 K=A< l > iPR 1NT' - K= I, K/A*J :GOSUB£090 

1330 K=C A< 2> -A( 1 >*SGN< Al 1 ) ) >7£IFR INTAl 1 ) "< K< "Al £> J A$> :GOSUB2090 
1300 K=A< 2 > ! PRINT ,, K="K; A*; SGOSUBE090 

1310 K=< Al 35 -Al E > *SGN1 Al E ) ) )7£iPRINTA< E) "< K< "Al 3 > ; A$; i 6OSUBE090 
13E0 K=A< 3) SPRINT "K = "K.1 ASJ :GOSUB£03D 

1330 K=< Al 4 >-A< 3) *SGN( Al 3 > > >/£ SPRINTAI 3 5 11 < K< "Al 4) ! A$; i GOSUBEQ30 

1340 K=flt4>iPRINT ,, K= , 'K; A¥; :GQSUB£030 

1350 K=A< 4 > +50 ìPR1NT"K > "A< 4>JA$; :GOSUB£090 

ISSO FORK= 1TQ5000 : NEXTs END 

1970 K=A< 1 > -50 :PR INT M K< "Al 1>;A$; SGOSUB2090 
1 330 K=A< 1 > :PR INT ’Ks' KlB*; :GOSUB£030 

1990 K=< 01 S > -Al I > *SGN1 Al 1 ) > >72iPR INTAl 1 > "< K< “Al E) ; 0$; :6OSUBE090 
£000 K=A< 2> !PRINT"K="KJ A*f 1GDSUB£090 

30 10 K = ( A< 3 ) -Al £> *SGN1 Al £ > > >72 SPRINTAI £? "< K1 "Al 3>? A$> :GOSUB2090 
£0E0 K=AC 3 > ! PR INT"K = ’'K; A$; :GOSUB£030 

£030 K=< Al 4 ? -Al 3 ) *SGN1 Al 3 > > )7£ :PR INTAl 3 > "<K< *A<4>> A*> ! GOSUB2030 
£040 K=A< 4 > :PRINT“K = "K1 AS»U s GOSUBE090 

2050 K=< fi? 5>-Al 4>*SGN< Al 4> > >7£ : PR INTAl 4> *<K< "Al 5>fA*? S GOSUB2030 

£060 K=A< 5 ) ! PR INT"K.= ™K ' A$ ' JGOSUBE090 

£070 K=AC 5 > +50 : PR 1NT ” K > "Al 4 >;AS; :GOSUB£030 

£083 FDRK= 1T05000 5 LEXTi END 

£030 REM CALCOLO RADICI 

£100 AR=A+D*K: IFAR=0THENE£80 

E110 BR=B+E*K 

2 120 CR=C+F*K 

E 130 REM CALCOLO DELTA 

£140 DX=BR*BR-4*AR*CRtNS=0 

2150 IFDXl OTHENPR INT“NES5UNA SOLU2 IONE “ : RETURN 
2 1 GB 1 FDX=0THEN£250 

E 170 XI = 1 -BR-SQR1 DX> >71 2#AR ) : X 1 = INTt X 1 * 100000 >7100000 

E 130 X8=< -BR+SQRl OX ) >71 £*AR> :X2 = 1NT< X£* 1000O0 >7100000 

E 190 IF1 XI >=L 1 > ANO! X 1 < = L£ >THENNS- 1 

2200 IFC X2>=L1 >AND< X21 =L2 >THENN5=NS+ 1 

2210 1FNS=0THENPR I NT "NESSUNA SOLU2 IONE RETURN 

EEE0 IFNS = 1THENPRTNT "SONA SOLUZ I ONE “ t RETURN 

£230 IFNS = £THENPRINT n ®UE SOLU2 IONI " » RETURN 

££40 PR ! NT " 3 ERRORE " 

E£50 X 1 =1 -BR >71 £*AR> 

£250 1FX1 >=L 1 ANOXl< =L£THENPRINT-a3UE SOLUZ IONI “ i RETURN 
E£70 PR1 NT "NESSUNA SOLUZ I ONE " i RETURN 
££80 REM DIVENTA EQUAZIONE DI PRIMO GRADO 
££90 IFBR=0THENPR I NT "NESSUNA SOLUZ IONE “ ! RETURN 
£300 XI =-CR7BR:Xl= INTl XI *100000 >7 100000 

E310 IFlXl>=Ll>AN01Xl<*LH>THENPRINT"flUNA SOLUZ IONE " s RETURN 
2 320 PR INT”5F'J€SSUNA SOLUZ I ONE " : RETURN 
E330 RETURN 

£34® REM GIOVANNI BELLO 1 SOFTWARE 1984 
READY. 
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Demo Sound 


D emo sound 64 è un programma che 
sfrutta al massimo le possibilità sonore 
del Commodore 64, 

Come molti di voi sapranno, il Commo- 
dore 64 dispone di uno dei migliori sinte- 
tizzatori sonori disponibili sui mercato. 
L’integrato in questione è ilS.l.D. (dispo- 
sitivo interfaccia del suono). Esso è un 
generatore/sintetizzatore a tre voci indi- 
pendenti con possibilità di regolazione 
della A. D.S.K. indipendente e, udite udi- 
te, con un completo set di filtri (passa 
basso, passa banda e passa alto) pro- 
grammabili. Questo 4 mostro % usato prin- 
cipalmente da strumenti musicati, è stato 
stranamente utilizzato in un personal 
computer. 

Ma veniamo al programma vero c 
proprio. 

Questo programma, nato come dimo- 
strazione delle possibilità sonore del 
Commodore 64, sì è poi rivelato un ottimo 
sintetizzatore che utilizza F intera tastiera 
del computer. 11 punto di forza del pro- 
gramma è l'estrema semplicità di pro- 
grammazione dei generatori. 

Utilizzando solo i quattro tasti di fun- 
zione (i quattro tasti sulla destra della 
tastiera siglati fi, f3, fS» 17), è possibile 
programmare completamente i tre gene- 
ratori, Dopo aver dato il RUN, lo scher- 
mo verrà suddiviso in vari settori la pri- 
ma, la seconda e la terza voce, i filtri, il 
volume, il duty de le dell’onda (solo per 
quella quadra), più due settori speciali, 
una per il modo ‘PLAY 1 e Faltrfl per i 
modi polifonico a tre voci o polifonico a 
due voci più una voce indipendente. 

A1F interno di questi settori vi sono del- 
le scritte che ne specificano la funzione. 
Mediante l’utilizzo dì due tasti (d, 13), 
viene selezionata, la funzione sulla quale 
si vuole agire. Con questi due tasti viene 
fatta spostare una freccetta (con fi ver») 
Fallo e con f3 in basso). Una volta indica- 


to con la freccia ciò che si vuole modifica- 
re è possibile, agendo sui tasti f5, 17, mo- 
dificarne il contenuto. 

Partendo dalPaJCo a destra nel primo 
settore, chiamato voce 1, (uguale agli altri 
due chiamati voce 2 e voce 3) per prima 
cosa incontriamo le forme d’onda. Esse 
sono quattro; onda triangolare, onda a 

B 

dente dì sega, onda quadra e rumore 
bianco. 

Sotto ciascuna di esse, a seconda della 
forma d’onda scelta, vi saranno due frec- 
ce in su (up arrows) che indicano quale 
delle quattro è attivata. Premendo i tasti 
di funzione f5, 17 le frecce scorreranno 
verso destra o verso sinistra selezionando 
in tal modo la nuova forma d’onda. 

A seconda di questa si potrà ottenere il 
suono dello strumento desiderato. Per 
esempio, volendo sintetizzare il suono dì 
un pianoforte, sarà preferibile, se non 
tassativo, usare un’onda quadra. Per un 
flauto un’onda triangolare, per una 
tromba sì userà un’onda a dente di sega. 

Ld forma d’onda ì come la continuità 
dì una funzione per la sua derivabilità, 
condizione necessaria ma non sufficiente, 
infatti una volta scelta la forma d’onda 
bisogna de fin in irne FÀ.D.S.R, ovvero la 
sua variazione dinamica net tempo. 

Per fare ciò bisogna definire quattro 
parametri chiamati attaek (attacco), de- 
cay (decadimento), suslain (sostegno), re- 
tease (rilascio). 

L’attack è il tempo impiegato dal suono 
per raggiungere il volume massimo. Può 
essere variato da un minimo di 2 millise- 
condi ad un massimo dì 8 secondi. Ciò 
avviene in quindici passi incrementando 
o decrementando, mediante 15 o 17, il 
numero presente dopo la scritta attaek. 
Esso varia da 0 a 15. I valori corrispon- 
denti alla durata sono riportati in figura 
I. 


Il valore specificato dal decay rappre- 
senta il tempo di decadimento del suono, 
dal picco raggiunto dopo il ciclo di attaek 
al livello specificato dai valori di sostai n. 
Questo tempi» di decadimento può essere 
variato da un minimo di 6 msec ad un 
massimo di 24 secondi. Anche in questo 
caso la regolazione avviene in quìndici 
passi e ì valori corrispondenti sono ripor- 
tati nella figura. 

Il valore specificato dal sustain rappre- 
senta il volume a cui sarà mantenuto il 
suono dopo il ciclo di decadimento. Q li- 
vello del susta! n varia da 0 al livello di 
picco, (specificato dal volume) in quindici 
passi. Il suono viene mantenuto a questo 

livello fino a quando viene reset luto il bit 
di gate. 

Il quarto ed ultimo ciclo, che inizia su- 
bito dopo il ciclo dì sustain c quello di 
releose. Il ciclo di rilascio è mollo simile a 
quello di decadimento. Il valore, compre- 
so da 6 a 15, rappresenta il tempo impie- 
gato dal suono per scendere dal livello di 
sustain a zero. 

Come ultimo parametro indipendente 
è presente, per ogni voce, l’indicatore dì 
ottava. Esso varia da 0 a 4. L'ottava 0 
corrispondente ai suoni più acuti, mentre 
al la quarta corrispondono i suoni piu bas- 
si, Il volume, comune alle tre voci, è an- 
ch’esso regolabile da 0 a 15, 

Quando viene selezionata l’onda qua- 
dra entra in gioco un altro parametro che 
la influenza sensìbilmente. Variando 
questo parametro, viene variato il duty 
ciclo dell’onda stessa. Volendo simulare 
un pianoforte, sarà consigliabile usare 
un’onda quadra con un duty dote molto 
pìccolo. Volendo ottenere dei suoni meno 
sgranati, bisognerà usare un duty cide 
maggiore. In questo caso la variazione e 
suddivisa in undici passi, da 0 a B (le 
lettere “A” e “B” stanno per t valori IO e 
11 ). 
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UNA SCUOLA 
TUTTA 

COMMODORE 

Per imparare 
facilmente l’informatica 


Corsi personalizzati 
a tutti i livelli 
con la possibilità 
di scegliere 
i giorni 
e gli orari 
più comodi 


Presentati o 
telefona subito! 

ISTITUTO «E. KANT » 

MILANO 

Via Bruschetti 1 1 - Tel. 603868 


Fti ri ora siamo giunti al pezzo forte del 
programma: i nitri. 

ìm sezione dei nitri è abbastanza diver- 
sa dalle altre. Per prima cosa la loro rego- 
lazione è in tempo reale ed avviene me- 
diante V utilizzo delle paddi es (inserite 
nella porta 1), 

I filtri sono tre e possono essere usati 
anche con tempo rancamente* Il settore 
filtri è disposto su due ‘piani'; in quello 
superiore è specificato il tipo di filtro* 
mentre in quello inferiore sono specifica- 
te le voci alte quali essi sono applicati. 
(Jucsta opzione è molto utile perchè* 
usando il modo 31. IB (la terza voce indi- 
pende nte T che vedremo in seguito) * e pos- 
sibile filtrare solo uno dei due strumenti 
che si stanno sintetizzando ottenendo così 
degli effetti particolari. 

Con le due paddles vengono controlla- 
te* rispettivamente. La frequenza di taglio 
e la risonanza del filtro. 

Chi non avesse la paddles non potrà 
usare questi filtri. 

Per selezionare le voci che devono «se- 
re filtrate* o gli stessi filtri* bisogna indi- 
carli con il cursore (usando come al solito 
FI e F3) poi, dopo aver premuto F5 o F7 
(Il bordo dello schermo diventerà scuro) 
premere i tasti 1,2*3 per abilitarli e 4,5*6 


per disabilitarli. Ovviamente il tasto I* si 
abiliterà la prima voce o il filtro passo 
basso (a seconda delta posizione del cur- 
sore), mentre verrà disabilitato con il 4. 
Per tornare nel modo normale* dovrete 
premere nuovamente il tasto F5 o F7* 

Come ho già accennato, è possibile, po- 
sizionando tl cursore sul settore indicato 
con *3LIB POI/* rendere la terza voce 
indipendente. In questo modo si avra la 
parte superiore della tastiera (i numeri e 
la prima fila di lettere) che suonerà a due 
voci sulle prime due* mentre la seconda 
parte (le altre due file) suonerà in modo 

monofonico sulla terza voce. Sara ersi 

■* 

possibile suonare contemporaneamente 
due strumenti differenti. 

Dopo il RLN. il programma sarà in 
modo play (suona) e, come dice la stessa 
parola* in questo modo potrete suonare. 
Per uscire da questo modo, dovrete pre- 
mere il tasto di cursore a destra i contras- 
segnato con CRSR con le due frecce a 
destra e a sinistra). D’ora in avanti ogni 
volta che premerete un tasto il bordo del- 
lo schermo tampeggerà e rimarrà scuro 
quando risele/ ione re te il modo play. 

Per farlo sarà sufficiente posizionare il 
cursore sulla casella play e premere F5 o 
F7. 



ATTACCO 

i 

RILASCIO 

Decadimento 


DEC 

Tempo/ ciclo 

Tempo/cielo 


I 0 

2 msec 

6 ms 


1 

8 msec 

24 ms 


2 

16 msec 

48 ms 


3 

24 msec 

72 ms 


4 

38 mse-c 

114 ms 


5 

56 msec 

168 ms 


6 

68 msec 

204 ms 


7 

80 mscc 

240 ms 


8 

100 msec 

300 ms 


9 

250 msec 

750 ms 


10 

500 msec 

1.5 £ 


11 

800 msec 

2.4 s 


12 

1 sec 

3.0 s 


13 

3 sec 

9.0 s 


14 

5 scc 

15 $ 


15 

8 sec 

24 s 


Fig, 1. Valori dell 'in vi tappo 
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1 0.0 R EH ********************************* 
120 REM* DEMO SOUND 64 * 
140 REM* ALBERTO & ANDREA * 


A : « 


!. . 1 . V' '■ 


160 REM* 

180 REM* 

200 REM* 80085 
210 REM* 

820 


BORIAMI 
V I A AC AC I E 3 
CUSANO MILANI NO 

02 X 6185626 


* 


MI ? 

.'V' VC- .i . 


* 

* 

* 


Uà •;•:■ V 

• V 


v . : . • 

■>. . Jì*}? 
i t li » «v .\ f- ■ 


A '-■■ ; YY Vy .Y '.•!■ . • • '.''-v 

' • • • •• • • • ■ 


•i '.[£ WZler' -:T : • : v.- : *w 
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* 


288 D =54272 - D IMF< 40 ) t D IMK< 255 > 

240 □ IMAC. 23 > sDIMBC 23 ) : S=0: S 1 =S ^ FOKE650 , IBS 
250 GG5UB10S0 
£60 FRI NT " b 


. ’ ‘ V-. 






> r r ..... . % 

870 RRlNT Nf j A & A I \ DEMO SOUND 1 1 SORIANI! " 

830 FRINÌ' 1 Y — — J v ^ " 

230 PR TNT ” r~ ~ H — ” — — — ^ i* ", 11 

300 FRI NT " | VOCE 1 1 I VOCE 2 1 1 VOCE 3 | 

3 i 0 pr i nt " i >\ /i_ n_ i A /L n_ **i i A sl. ru **i Jl 


320 PRÌNT'M 
330 FRI NT 1J 1 ATTACK 
340 FR I NT " 3 DECAY 
350 PR I NT IJ | 

360 FRI NT 11 S SUSTA IN 
370 FRINT'M RELEASE 
380 PRINT"! OTTAVA 
380 PR 1NT " I 
400 FRI NT" 1 


1 \ 

! { ATTACK 


1 1 

| | ATTACK 


\ | DECAY t 1 DECAY 




I I 

! I SUSTA IN 

I I release: 

! I OTTAVA 

1 1 .vvjv^^Wt 

y ^ * — . ■ . 


410 PR I NT" r — 

420 PP I NT 11 1 VOLUME 
430 PR I NT l+ 


I I 

' '■ ’-ltvcV V 'C‘ ,Ì . • Ì ■’ '■ ■; 

I | SUSTA I N 
| | RELEASE 
| I OTTAVA 

I I 

V Vh 


I " 
I M 

| II 

! n 
I 11 
1 " 

! M 

I H 

v » 


^ r ì r - 
3 3 OUTYXCICLE t \ 

st l & 


GO ! 


I " 

-y " 


440 FRI NT M C ' 

450 PR I NT N 1 2 3 4 5 S 7 8 8 A 6 


; r" 




w 


480 FRI NT" '- 




| | 3 L IB POL I ì * 

_y ^ j H 


WBBMB 


. . ■ 

• ' ■ 


470 PR I NT " f — — r T 

480 PR I NT " [ PASSABASSO I PASSABANDA i FASSR-ALTO 1 " 
430 FRI NT" I VOCE X I VOCE £ J VOCE 3 t“ 

500 PR 1NT" * " 

5Ì0 GOTO 850 P'SSJglSiS 

520 GETASì 1F A£ ^ " " THENPOKE53280 , 14 J GOTO 520 
530 II - I J POKES3280 ,6 
54 0. IFA$= "Jjt"THENI- I +■ 1 
550 IFAS- "É"TNEN l * ì - 1 

560 IFfi^= il IÌ ,l THENB< 1 ) I ) + 1 : 6OSUB630 
570 r^A^ tt H ,i THENB< I > =8< I ) - 1 s GOSUB630 
580 1F I s- 1 TRENI =83 
580 I F I "24THEN I -0 

600 FGKE1 1S4^-A^ i 1 > ^B6:P0KE1 I84+A^ i > ,62 
6 10 P0KE55456+A< I 1 ) , 1 4 : P0KE55456 + A< I),l 
620 GOTO520 

630 REM ******************* ************ 

640 IF 1 “0GR I =23THEN1500 
65Q IF I » 1 4THEN8 10 
6S0 I F I =2 1 THEN 1 130 
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Dtttn SouiKt 


mém 




c&u&iìviS 




S£Sf|$iSS| 

>! .. Hi . : 


. .-.* : ' • • ••• • ■ '*■ '' 


* Vi, ■> . :: ■>': 

. .• . ...•■• . 



870 1F:^££TH£H1640 


630 

IF 1 “ 

Sya3^BSKMBjHSWW^ 'i-Y^gUBTraj'?^ ’ r : . 7 "T ’-' ' ’ * ! . s ' J.' -L1| ''iE‘7^ 

ÌOR t =3QR I = 15THEN750 

mh HMB nHHHHHflHHHBH 


; • . V •• .-VV-- 1 

7(30 

I F B< 

I > = - 1 THENBC 1 > = 15 

e • ! _ ■,■"■■ ' C. T - . r ■ * ' ■" a „ ■ ■ 1 ■ ‘ 

y ,'" • "V.. . •;•■ . ;• V - A- V . . •. • : ' i 




a$mW 


710 lFBrn:«18TH£NB< I >«0 
720 IFE -; I ) / = JBTHENROKErK 1 ;> + 1 1 93 , 49 ^FO^EfiC 1^4 .,1.3,4 ,3S+B( I > 
730 IFBC IK 1 0 THE FP DK E 1 1 33 +(R< 1 ? ,32 : POKE I 1 94+ft< I > Y48+B< I> 


m 


7 « RETURN 
750 REM** + 

££Q,-TF BC 1 > =4 THEN ■ B<. i > =8 

. • . 


ss* 




ssMfiB y&ts issi 7V9& 

: i:, ••.= .:•• . v. \ 


TWFiS > = - 1THEN B< 1 Y= 3 

F GBPi=jaf#.10 « PGfc&l &25+P +fl< I > , 32 : NEXT 


' j v; : 7v7 ■ 


VVi', 


m%. 4WtM ^ app 

••■•:••• •••• -• • • ■ •••• -.•• :/v. ; V:.Nv.. • . •;. • ’V:-i }.-;••• ••• : - ".. • •:"•.• • • • •• ■ • . •.•■•• • ■••••:: 

?se PdKEflfffS'+m I >+3*B< ! > ,30 i POKE l£28+n< I >+3*BC I) ,30 


: :V 


? 


>■:•!. \/.s 


• ,80© 

3 10 REM 








i» :- 


820 

ÌÌ..-T ^ -• " ■■■; , ' ■' 

IFR*= ,, » , 'THENS = 5+1 



■r».r ■ ■■■ ■ S VWW' 1 

330 

[Fnf = "■l"THEN5=S- 1 



840 

IF S= 11 THEN S=0 HH| 




•f, , .. 


, •■■ ■ 




853 IF S-- 1THEN 3=10 

360 POKE 1233+ft( 14 > +S1 *£ ,< PEEKC 1293+AC 14 > +S U2 > AND 127 > 

•ìvV'A r " . :■■: i ?VaCyH -Mxi. Mcaw. ^SsSarKW! •'■■s -■ ■ •*. V .. ?. r- ■ . - ■ ■■.■r-.ù i ■■ • ■ vwwjr ‘ ■ 7 .-?■.■ -:-k a i a-dicve i r.-ira— «■ , 

970 POKE 1293 14 ) +S*£ , 128+< PEEK< 1293+FK 14 > + S*2 DriND 127 > 
880 SI =8 

830 FQRY=0TO£ : SB = 7 * Y: POKE54274 + Sfì ,0 : P0KE5427S + SA ,SS NEXT 
900 1=14: RETURN 

310 REM***.**.# a************************ 

* FORI MT02 1 






■t. 


m 


■■ •mvyi'siWii' 

frSj 


"■ 


*i s 


830 QOSUBS38 s f4EKT 

, ■■.’r .:- • 'v y ■ ; 

930 1-0 : RETURN 


• ' : 1 V-, WjSV. 

: ■ ■ ' ' 


r . ■ V*v; ? r 'r- : • 

■ ’ .* 



tMufieultl 


... 


;v*.* cj.'. « 


-, 


350 REM*- *.*******************##***#***)# 

9S0 FOR 1 =0TGE3 JREFtOA: A( I>^rì:NEHT 


37® FGRF = ©TG2S:REAPBSBC F >-BiNEHTF 




JVitìS ■?’ YAr 

' A . ì ■ < vr c : v* 





380 F=1 : S=B 

-I J-ll-J^lt J.Ì 'il .L.,,. U ._ |V - | , ■ _!■, L T _ • . !*- - ■ - . - — 4 - ... -,^-- 1. ■.>•■■•(■• I,v 

930 G03UB 1S40 i GOSUB9E0 
1030 1 ~ 1 i GOTG530 

lai® rem******************************* 

1 020 DATA760 r 4& , 1£0 ^ 180^240^280^320,480 
1030 0BTf»53 fi 33 i 173^253x293,333^433/68, 148 
1040 DRTn 136 ,286,306 ,348x506 ,626, 730 
1050 REM** *********** ****** ************ 

1 mi in if ^ - — ^ 


',; - 


. /v/v / :vv,v 


a;v ">' 


106® REM* 

métti 

1030 
1090 
1 100 
t 110 


graaMBam-g 


EVv\\ 




FORY-0TO28: POKED+y ,® i NEXTi RGKE54S95 x? 

=7040 i FORY- 1 T039 - P< 40-Y> =F 1 *5 . é+ià'S^ 1 ! ±PÌ /St< . 083 3 3 > : NEXT 
K^= ,l Q£W3ER5T6Y7U13O0Pe"*£t23XDeyeBHNJM,L. i/T 
FORY'ITOLENC KS ? :KC RSCC MIO^CKS.Y) > >=Y:NEXTY 


iiee 

: C"V/ji’l>V ■' 4 Y ■ 


ra6KUEivwi , >'.ua 








■ r:: M 


I 5 *! .‘XVJ’il. -ts? 


. ' ■ ’ • • ■ ',‘C , vi>4i;V-SS 

-, . '.i. 




1 140 
1 150 
1 16® 
! I7B 
1! 8® 


RETURN 
poKE 650 a e 

FORY^0jrp£ s Sft^7*Y^FOKE-54a774Sft ,B<gfSft>* 16 + BC 
P0KE54278+Sa ,B< 4+Si=k > * 16^B< 5+SA? _ 

P0KE54274+SA> 1É8 s POKE54S75+SA , S 

NEXTY . 

HB=255:AV< 0>=B< e>*16+B< 3) :SVC0J=B< 4)*16+BC 5> : ; J^. >.sà^W? ’ • 




'•Vrit-. \ j 
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1 190 AV< 1 > =B( 3 > 16+BC 10) ì SVC 1 ) =B< 1 1 )* 16+B-; 12) 

1200 AV< 2 ) =B< 16 ) + 16+BC 17) : SV< 2)=B< lS)*16+eC 19) 

1210 GETQS 

1220 IFQ^= M 11 THEN 1210 

1230 IFEK 22 > =0ANDK< ASC< Q$) > >=23THENV=2 

1240 T=V*7 * FR**F< K< ASCC 0$) > >72tB< 6 + T> 2 CR =D + T+4 

1250 IFQ^" " ÉT‘ THEhP0KE658 , 128! RETURN 

1260 PBKE54278+T,0SREM SUSX0EC 

1270 PGK.E54877 +T , 0 : REM RTT7REL 

12B0 POKECR ,8 ! POKECR , 0 

1236 P0K£54875+T,S 

1300 P0KE54294 , F E E K < 54287> ! P0KE54295 PEEKC 54298 ) HND240 > +BC 0) 

1310 PQKE54296,B< 7>+B< 23) *16 

1320 P0KED4'T,FR-HB*1NKFR7H8>:REM SET LO 

1330 POKEB+ 1 +T,FR/HB : REM SET HI 

1340 F0KE542?8+T,SV< V) 

1350 P0KE54277 +T V ) 

1360 POKECR ,H +B< i+T)* 1S+1 : FORT- 1 TO50*B< 2 + T> * NEXTY 
1370 POKECR ,2 tB< 1+T>*16 
1 33© V-V + i : IFV >=2+B( 22>THENV=0 
1330 GOTO 1210 

1400 REM*#* * ** ** *# ** * ****** * * # * * * ** * * * * 

14 10 IF I>=4 THEN Si I > ^0 
1420 IF B< I ) =“ 1THEN EK I ) -3 
1430 GOTO720 

1440 REM******************************* 

1450 REM* * 

1460 REM* STRUMENTO * 

1470 REM* * 

1 430 REM# ***###*####***#*****#*#####*#* 

14SO DftTH0,2,0,9, 15,3 ,2, 15,2,0 ,3, 15,3,2,0,2/0,9,15,9,2,0, 1 
1 500 REM*#*##*#**#*####**************** 

1510 IFA^^ir’THENBC l > I >“1 
1520 IFtftìfc* "ÌI 11 THENBC I}==B<: I > + l 
1530 GETJS! IFJ^=" "THEN1530 
1540 JFJS=‘ , H ,t 0RJS= "ITTHENi RETURN 
1550 J=VPiL<JS> 

1560 1FJ >“ IRNDJs -3THEN B< I ) *( B< 1 >ORC 2 1< J- 1 ) ) ) 

1570 IFB< I ) ^IGRBC 1 >-50RBC I >=3THENP0KE1 IS4+AC I > + 12,31 

1530 IFB< I ) =20RBt 1)=30RBC I ) =5THENPOKE 1 184 + FK I >+24,3 1 

1530 IFBv I ? -4QRB\ I >^50RB< I > ^SQRBC I >=7THEMPQKE 1 184+RC I >+36 ,31 

1600 IF J< 4QRJ >8THEM1530 

1S10 POKE 1184+FK 1 >+< J-3>* 12,32 

1620 Bv I )=K BC 1 >AND< 15-2t< J-4> > > 

1630 GOTO 1530 

1 640 REM ******************************* 

1650 I FB< 22 > - - 1 THENB< 1) ^=1 
1860 IFB< £2 >=2THENB< I>“0 

1670 POKE1 189+a< 22) ,32:P0KE 1 194+AC 22 > ,32 
1630 P0KEH89+R< 22) +5*BC 22 > ,3 1 
1690 RETURN 
READY- 
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Ogni giorno in Europa si apre un nuovo computer shop. 

Un pubblico sempre più numeroso è attirato verso il personal 
e si rivolge ai negozi specializzati per trovare la sua marca 
preferita. [t 

T u che hai capito qual è il futuro dei computer e hai deciso 
di aprire un negozio, 
cerchi un nome che dia prestigio 
e una organizzazione che 
non ponga vincoli ma offra 
vantaggi concreti. 

Computeria vuol dire negozi 
di computer fin dal 1979. 

Computeria è anche una 
organizzazione che ha avviato 
rapporti di collaborazione 
con tutti i principali fornitori, 
perciò i suoi affiliati possono 
scegliere e vendere le marche 
più prestigiose e richieste. 

E inoltre Computeria ti dà un prezioso 
know-how, una ricchissima dotazione di .. 
programmi, supersconti esclusivi, 
vantaggi economici sul leasing. 

E tanta pubblicità. 

Se vuoi essere libero di scegliere quello che 
vuoi vendere nel tuo negozio, 
l’organizzazione Computeria 
è la tua scelta obbligata. 








Veneto cartuccia AVENGER (L. 
40000) g cambio con EASY- 
SCRIPT aaltra che non richieda 
l'uso di padelle e joystick. Scrivere 
o telefonare ore pasti a Fabio In- 
verti izzi Via Monte Cervino, 13 
Melzo (Mi) - Tel. 95711676. 

Vendo per VIC 20 gioco, SUPE- 
REXPANDER 3K RAM. regi 
stratore Commodore^ 3 manuali 
sul Vie 20, molte cassette con pro- 
grammi, joystick. Il lotto a sole L. 
300,000. Telefonare a Michele - 02/ 
471541 (Milano). 

Per Commodore 64 venda a prezzi 
bassissimi o scambio programmi su 
nastro o su disco. Posseggo molti 
programmi utility, gestionali, vi- 
deogames tra cui TURBOTÀPE, 
ZOOM BLUE MAX, Posseggo 
anche molti manuali per l'ut il brio 
dei programmi Chiedete informa 
zioni a Gianvittorio Palli Via Nep- 
piano, 11 Varzi (PV), 

Vendo o cambio software per Gom 
inodore 64, Cerco programmi ma 
tematici versatili per il Liceo scien- 
tifico, Cedo TURBOTÀPE e $1- 
MON'S BASIC in cambio di dischi 
e utility. Vastissimo assortimento 
giochi tutti molto noti e a prezzi 
bassissimi. Leonardo Longo Via 
Pietro Longhi* 6 Padova. Telefo- 
nare nel primo pomeriggio 049/ 
614786. 

Compro copia dei numeri 5, 6 e 8 di 
Commodore Computer Club, Ugo 
Ghìrardì Via R, Rcnier, lOTorino, 
011/383568. 

Vendo cassetta per Commodore 64 
contenente PAC MAN e SCAC- 
CHI L. 10000. Guido Gafforelli 
Via Settala, 1 Milano - Tel, 02/ 
2711436, 


Vendo, causa realizzo, Walkman 
"Hinno-Hit" Playgo (imitazione 
Sony) 2 mesi di vita. L. 130000 trat- 
tabili, Maurizio Marra Via Guar- 
niti, 39 Grimo (An) - Tel 071/ 
716120, 

Vendo programmi per Vie 20 ine- 
spanso a prezzi variabili da 10(30 a 
2500 cadauno. Richiedere lista in- 
serendo L 300 in francobolli. Mar- 
co Fata Via Andrea Costa, 4 Anco- 
na -Tel. 071/85729. 

Venda giochi per Vie 20 e Commo- 
dore 64 a partire da L. 1500 fino a 
L. 25000. Vendo anche cassette 
C60 marca KDK L. 1500 l'una An- 
drea Ragaini Via Villa Musone, 
115 Loreto (An) - Tei, 071/977712. 

Venda sistema Commodore com- 
pleto in ottimo stato: Commodore 
64, registratore C2N, Drive 1541, 
stampante MPS801 oltre ad acces- 
sori e programmi a L. 1200000, Au- 
gusto Amato Via Rodolfo Moran- 
di* 3 Roma - Tel, 06/8185465. 

Venda (a prezzi bassissimi) o cam- 
bio software per Commodore 64. 
Dispongo dì giochi in L.M, e a tre 
dimensioni ii, gestionali e manuali 
d*uso in italiano, Turbotape. Ro- 
berto Franzoso P.zza Medaglie 
d*Oro, 6 Asti. 

Scambio o vendo programmi per 
Commodore 64 Massima serietà. 
Simonc Luccsoli Via Achille Bari- 
latti, 21 Ancona - Tel, 071/890213, 

Vendo cambio programmi per 
Commodore 64. Dispongo di circa 
500 titoli di vario genere, Fabrizio 
Arri goni Via S> Bonelli. 2 Milano - 
Tel. 02/3083592, 

Vendo programmi per Vie 20 in ba- 


sic e L.M, Luca Lìvraghi Via Vene- 
to, 9 - 20068 S. Bovio (Mi) - Tei 
02/7532381. 

Vendo a prezzo co nvc nienti ssi mo 
Commodore 64 r registratore C2N 
e tre cartucce. Si mone Galimberti 
Via Sette Ponti, 56/12 - 52100 
Arezzo - Tel. 0575/381587. 

Vendo Intellevision L. 200000 oltre 
a cassette L. 30000 l’una. Andrea 
Tel, 06/8383312, 


VENDO 

SCAMBIO 

* 

HARDWARE 


Vendo ZX81 con cavetti, alimenta- 
tore manuali italiano inglese, il tut- 
to poco usato e perfettamente fun- 
zionante a 100000 trattabili. Gior- 
gio Sgherri, via Crispi 37, 63039 S. 
Benedetto Tr. - 0735/4833 h. 20/22. 

Venda 4 videogiochi tascabili: Il 
caldo dei campioni (Casio), 
Toutan-Kamon (Bandai), Basket- 
ball 2 (Mattel)* Spead Freak (Mat- 
tel)^ 12OOQ0 oppine separatamen- 
te. Pompilio Capriotti* vìa Val 
d'Adige 12* 63037 Porto d* Ascoli - 
0735/Ó59064 h. 12.30/13 

Vendo Video Computer System 
A tari 2600 nuovissimo, alimenta- 
tore, 2 joystick, garanzia, 3 cartuc- 
ce, imballo originale* prezzo occa- 
sione 25O0GO trattabili. Gigi Fer- 
rante, via Fiume 3I/R, 95 126 Cata- 
nia - 095/492933, 


Consolle Video Game completo 2 
joystick con 2 cassette, 16 giochi a 
colorì, solo 70000, Video gioco ta- 
scabile Monster Panie nuovo della 
Digit-Com, solo 35000. Oltre 200 
titoli per Spectrum su cassetta. Ma- 
rio Di Loreto, via Saracino 14, 
00121 Ostia Lido (Roma) - 06/ 
5692106. 

Venda video gioco Àtari CX2600 
con 8 cassette, valore circa 8O0OOO, 
a sole 400000, Silvestro Porcaro, 
via S. Francesco 8, 84043 Apopoli 
(SR) - 0974/823187 or. negozio. 

Vendo Spectrum 80K, manuale ita- 
liano, cavi, alimentatore, registra- 
tore e alcuni giochi. Roberto Do- 
nati, via Roma 60, 471)30 S. Mauro 
Pascoli (FO) -0541/930024 pasti. 

Venda stampante Alphacom 32 
perfetta con 2 rotoli carta termica, 
a 20O0O0, preferibilmente zona 
Brescia, GiorgioMorocuttÉ, via Sa- 
botino 16/a, 25127 Brescia 030/ 
307639 dopo le 20. 

Vendo (a prezzi modici) e cambio 
software per Commodore 64. Di- 
spongo di molti giochi anche origi- 
nali americani e novità. Rispondo a 
tutti. Paolo Tognana via A. Guidi 
1, Padova -049/683552 
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F UNZIONI 


e siete .studenti di un Liceo Scientìfico, 
vi imbatterete prima o poi nello studio di 
funzioni. 

Questo, come è noto, comporta lo stu- 
dio del campo di esistenza, della positivi- 
tà, dei valori ai limiti, della derivata pri- 
ma c seconda al fine di disegnare il grafico 
di una determinata Funzione espressa nel- 
la forma Y=f(X). Tutto questo può essere 
di difficile determinazione, soprattutto 
quando si tratta di funzioni contenenti 
logaritmi, funzioni trigonometriche (pro- 
vate a trovare la positività di 
V=X+ln(X)-Sin 2 (X)Cos(J.X) }. Anche 
se si tratta di funzioni semplici, è molto 
facile - soprattutto se siete alle prime armi 
* sbagliare il calcolo di una derivata o di 
un limite, non riuscendo cosi a disegnare 
l'esatto grafico della funzione. 

Questo programma permette una rapi- 
da verifica del vostro lavoro disegnando il 
grafico della funzione e della sua derivata 
prima. 

ì proposito si è evitato di far calcolare 
al programma gli zeri della funzione, ì 
punti estremanti eco. in quanto ritengo 
che siano perfettamente mutili al fine di 
facilitare lo studio di una funzione* 

Infatti servirebbe ben poco sapere che 
una funzione presenta un massimo per 
Mf 0.1539763 ; 2 , 4633578 ) quando tutti 
gli esercizi scolastici richiedono un risul- 
tato espresso in frazione e/o con le radici e 
i logaritmi non svolti. E* invece molto più 
utile vedere come si comporta effettiva- 
mente una funzione e dall'andamento 
della derivata prima dedurre la presenza 
dì massimi e di minimi poco visibili o dei 
punti di flesso. Come e noto la funzione 
ammette un massimo o un minimo nei 

punti dove la derivata prima si azzera, 


mentre ammette un flesso nei punti in cui 
la derivata prima presenta un massimo o 
lui minimo. Vediamo ara di analizzare il 
funzionamento del programma. 

er prima coki bisogna caricare le rou- 
tines grafiche di D* Toma pubblicate sul 
numero 10 di Commodore Computer 
Club, in quanta il programma pubi àcato 
in queste pagine ne fa uso per tracciare i 
grafici in alta risoluzione. Dato il RUN 
alle routine# grafiche, dopo che queste si 
saranno fermate, potrete caricare questo 
programma che avrete in precedenza di- 
gitato e salvato su supporto magnetico, 
Dato di nuovo il R1JN vi sarà richiesto di 
inserire la funzione di cui volete il grafico, 
Questa va inserita iu forma esplìcita 
(Y =3* X +2 ad esempio) facendo molta 
attenzione che va messo Y— e che il sim- 
bolo di moltiplicazione non può essere 
implicito (per intenderci niente Y“2X 
ma Y=2*X). 

alo il RETURN, il computer vi chie- 
derà dì inserire Fascista minima e La mas- 
sima del sistema dì assi cartesiani in cui 
volete rappresentare la funzione, nonché 
il passo, cioè l'incremento di ordinata per 
ogni punto. Se non capite quest’ultimo 
punto, anziché precipitarvi al telefono 
(abbiate pietà!) provate ad inserire per il 
passo un numero minore di 1. In pratica il 
passo è inversamente pmporzkinak al- 
l'accuratezza con cui viene tracciata la 
funzione. A proposito, i tre numeri di cui 
sopra vanno inseriti separandoli con la 
vìrgola. 

ato ancora 3 RETURN, il computer 
vi chiede di inserire F ingrandimento per 
l'asse X e per le Y. Come al solito questi 


due numeri vanno separati ria ima virgo- 
la. Dato l'ultimo RETURN lo schermo 
passerà in grafica, verranno disegnati gli 
assi e inizierà il tracciamento della funzio- 
ne. Se dopo un tempo ragionevolmente 
lungo non è successo niente i casi sono 3: 
l fl ) avete sbagliato a digitare il program- 
ma da qualche parte. Rimedio; digitare 
alla cicca POKE 24#,0;SYS MO. Se non 
accade nulla fate Run/Stop è RESTOKR 
e controllate il listato, semprechè non sì 
tratti del 2° o 3° caso. Se invece tornate al 
modo testo leggete l'errore verificatosi e 
agite di conseguenza; 

2°) la funzione non ha punti nel campo da 
voi esplorato. Rimedio: premere F3 e tor- 
nerete da capo, Non è necessario re 
inserire la funzione, alla domanda basta 
rispondere con un RETURN; 

3°) la funzione c'è ma non si vede, ovvero 
alzate la luminosità del TV. 

e, come dovrebbe, è apparsa la fun- 
zione, potete scegliere tra: tornare all" ini- 
zio, in modo da poter modificare i para- 
metri e eventualmente effettuare un in- 
grandimento con Far tracciare il grafico 
della derivala prima premendo FU In 
questo modo il grafico della derivata vie- 
ne tracciato sopra a quello della funzione 
per un più immediato raffronto. Se il ri- 
sultato risultasse poco chiaro potete can- 
cellare il grafico della Funzione premendo 
CLR/HOME prima di FI. 

ome esempio sì voglia studiare l'an- 
damento della funzione Y =X^3 +2* X*5. 

Conte saprete questa è una parabola 
cubica. 

Verifichiamolo ora con il programma; 
alla richiesta FUNZIONE? rispondiamo 
con la cubica che abbiamo appena vado. 
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Alla domanda PUNTI ESTREMI E 
RISOLUZIONE? rispóndiamo con: - 
10, IO, .5. 

Alla domanda IN (ì ftAND IME NTO 

X, Y? rispondiamo con 1, L 

D alo J 7 ultimo return, vedremo appari- 
re dopo poco il grafico della funzione. 
Come vedrete pero ha una precisione bas- 
sissima ed è attaccai issimo all'asse delle 

Y, Premiamo quindi E3 e riproviamo. 
Alla prima domanda rispondiamo con 
RETURN, alla seconda con RETURN e 
alia terza con 20, L Ora va già meglio, 
però ci vorrebbe una risoluzione maggio- 
re. Ri-premiamo B e rispondiamo come 
segue: RETURN -IO, IO, .2 RETURN. 
Ora ci siamo; proviamo a tracciare anche 
il grafico della derivata premendo FI. 
Purtroppo questa non è molto chiara in 
quanto percorre un lungo tratto sull'asse 
delle ascisse. Bisogna ingrandire le ascis- 
se. Premiamo F3 e rispondiamo: RE- 
TURN RETURN 20,5. 

L a funzione appare piò spostata verso 
LI basso. Vediamo ora la derivata premen- 
do F I. E 1 chiaro che questa non si azzera 
mai, quindi la funzione non presenta nè 
massimi nè minimi. In compenso la deri- 
vata ha un vistoso mìnimo in zero, quindi 
la funzione ha un (lesso per X=0. Con un 
righello possiamo anche misurare Tordi- 
nata di tale punto tenendo conto che le 
ordinate vanno da +100/1 a -100/1 dove I 
è T ingrati di mento delle ordinate che ave- 
te inserito alla terza domanda. Nel nostro 
caso il flesso si trova esattamente ad un 
quarto di ordinata negativa, quindi a * 
100/S/4 *= S. 


Andrea e Alberto Boriarli 

* 

Via Acacie. 3 - Cusano Milanino (Mi) 
Tei 02/6195626 

N.B. Il programma si fonda anche sul- 
T articolo pubblicato sul N° 8 di Commo- 
dore Computer Club (Il buffer dì tastie- 
ra). E* quindi necessario premere i tasti 
funzione solo quando si è certi che Li dise- 
gno è terminato e non durante il 
ptottaggk». 



INTERFACCIA 
REGISTRATORI 
A CASSETTE 


PER VIC 20 E COMMODORE 64 


Adatta tutti i normali registratori a cassetta al 
tuo computer. Ti permette di duplicare i pro- 
grammi da un altro normale registratore. Con 
sole 34.000 lire I.V.A. e spedizione compresa 
potrai ricevere direttamente a casa tua questa 
indispensabile interfaccia, inviando il buono di 
ordinazione accuratamente compilato. 



1 

| BUONO DI ORDINAZIONE 

Inviatemi N. interfacce cassette 

i Sia . 


1 9 

a Via 

N 

1 

| rnp Città 

( J 

i _ 


! R.C.P. ELETTRONICA srl 

Via Don Pasauino Borghi, 13 

I 4 20 17 NOVELLALA ; REGGIO E,) 

| M 0522/661471 
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2 REM * 


BY ANDREA a ALBERTO 


5 REM * VIA ACACIE 3 CUSANO MI LANINO * 
S REM * TEL . 02 / 6 195^26 * 


3 REM :*.**+ INI2 IAL I2ZA2 IONE * * *,* 

10 xy .=0 : Y 7.=0 ! X t X =9 : Y 1 Z=® 

20 P0KE243, 1 : P0KE2 , 1 : PDKE25 I , 1 '■ PQKE25 
30 PL=49E93 i OR “-4 97 £8 : CL «49763 ‘ CO -4878 
3 Sì REM ***#. INGRESSO PARANE TRI **** 

40 PR I NT M ^FUH2 I ONE w ; 

50 I NPUTF$ 

.:V i' • >• : • • ... • . . . . . .* , • » . i * -r V ì lì Vai' <• • ■. ■ \ \\ 4 V 4 ‘ «.*' i 

80 I NPUT M PUNT I ESTREMI E RISOLUZIONE" 
70 1 NPUT 11 1 NGR AND I MENTO X , Y h ; IX, IV 
72 REM **** SETTA FRGINn GRAFICA **** 

75 SYSCL : SYSCO i SYSMO t G03UB5000 

76 REM **** CALCOLA LA FUNZIONE **** 


iOO rrx L‘63 I , 19 5 P0KEB3E , 13 ! F0KEE33 ,71 sPDKEGM ,111 
1 10 P0KEG35 ,43 :PDKE63£ ,50:PQKE637 ,43: F0KE638 , l3iP0KE 133 , 10 
115 END : REM * Y w- * ATTENZIONE FU NON R I NUMERARE Ln RISA 120 
taé I FY*IY+ 1 00 >30©THEN 1 40 • \ • 

125 x>;=x* ixf ISO : vx~v* iY +100 

137 REM *+** DISEGNA LA FUNZIONE **** 

130 SYSPL 

1 <3 0 fUx+Ri IFX< E2THEN30 
145 REM *#** ATTESA PI COMAND ì #-*** 

150 SETA* 

ÌS0 I F = 11 13" THE NE YSCL : GOSUBS00O 
170 IFA$ = 1 ■ " THEN 1 000 

EOO lFA^» J, a , 'THENPOKE£48,0:SYSMOJPOKE£48 


G0T040 


’ 7 


£0 GOTO 150 


389 REM *** STAMPA GRAFICO DERIVATA *** 

1000 X-El 

1020 PR LNT ,, J ,, lRfef 

1030 PQKES31 r L3IP0KE633, 13 : P0KE633 ,7 1 : PQKE634 ,111 

1040 F0KEB35 ,43 : P0KES3B >48 : POKEB37 ,54 : P0KE63B,48 : P0KEB39 

10.50 END*' REM +.*.** ATTENZIONE !M NON R I NUMERARE LA LINEA 

1030 D^: r-u>* IYM-©0 s 1F ABSC D> V32767THENI075 

1065 VX = D :X>;~X*IX + 160 . , 

1070 SYSPL ' ^ ' ' : 

1 075 U -Y .,vv77.;-;: \ 7: qU.U ■ ■: ■ 

1080 X=X+R : IFX<E£THEN10£3 
1030 GOTO 150 

450O REM *- * * * +: TRACCIA GLI ASSI ***** 

5000 XX= 1 60 : Y>-=0 : X 1 X= ISO i Y1X= 139 J SYSOR 

| ti -VI 1 ..' i JJi |j|7.y '• : ■ 1 ■ * ■ _ , 1 . 1 . • * '.-‘V 7-’ oL'.* ' ' '• ' ’• • . ; .• T 

5010 FORH=0TO3205TEP£ 


020 X»H ì YX= 100 ! SYSPL ? NEXTH : RETURN 


READY 
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COMPUTER 


G 


PRODOTTO 


PREZZO 
(IVA ESCI.) 


VIC 20 


HOME COMPUTER 

.Vene- 0 bQ5.fi 5 <tCy"es, 755 Combinai ioni 0. GOfon r 3 vùc, BASIC re»^- 
de' I * , e.si collega tjirefa nenie a qualsia; televisore ga mestico 


199.000 


COMMODORE 16 


HOMI COMPUTER 

Vemtìfio a 1 6 Ks^eJ SA V, ikjrdaf^, 1 2 ^fcyres BAM bili per pio* 

grQnvnfii ifl fiA.S C 3 A 5 C J 5 residente L ?1 COlO* ‘5 d bOS*«n 3 gre 

doi^om + liner*- Cdlegab ■eaL.ntQm-Lir’c -de visore 


245000 


COMMODORE 64 


CPU 64K RAM 

Computer cùn jll-j r solul iene graFica, 256 cOmbmaziOr di colon, Sinte- 

■ij talari di suono Possibihlà di creare ecctiiond f.gure tridimensionali 
d'narcvchi» ’spnres aihera nraFico i !>iinei'Si©ne adà schema AG co- 
•tjnre per 25 righe Ccr"D3‘ z- lecca M'ele periteti che Gcmmodore Cai 
ìe^obi'e a un comune le^-V'ic'e 


625.000 


C 64 EXECUTIVE 

lì solo e fonfoslico comburer pcrtijh e della 'jCCorider generazione Moni- 
'Or a tester i d. B" od o^o ri so azione grafito e Happy Disk Drive do 7Q 
Abyfes incorpori! loi'.er* grafita separabile, iuùrtó ^r'ùffr$snonole e 
Compierò campai b: irò :on i p-agrgnmi e 1“ ^enteriche dei Carnmadar^ 
i4 ne ion no un com pyte-r àui rr A'e js- Può inaHre u ni. zzare i u ne ! e- carTut. ■ 
ce Gl 6t e può essere col legcro al mandar I 702 


2.360.000 


COMMODORI PLUS 4 


PERSONAL COMPUTER 

Vemona óA -RAM, Ù0 bytesK RAM accechili pei programrrv m 

BaSsC BASIC 3 5 'estdeniR 121 eden jl6 di baio ton fi gradazioni a 
anagrammi software r eì.n-?m su 9QM Cottttjabrfea un comune id^vsOnf 


97.5 000 


COMMODORI SODO 


PERSONAL COMPUTER 

CPU i?S Kbyies PAM, ?4£pyres SOM, 6 osk a <j reside^e, v deo 
orienlobilÉ e bo&cdome fio ce-lonne per 25 r.gnc\ losiiefp corimenrioie 
zepof ola SoFlwo re ccmpar>b ne con C &M 0032 * C BM 8096 


1 995 000 


COMMODORE 700 


PERSONAL COMPUTER 

CPU 120 Kbyle-. RAM'. espordib'H internamene a 256 Kbyies ed esltr- 
, nomense a 96QK. Videa orientabile e bastulqnie, 00 colonne per 25 
ngfre CompnPib e con fi. re fi pe?iWr K- ComrYi adtìrf delle sene pro- 
iesSiOnoFtì 


PERSONAL COMPUTER 

CPU 256 Khy'es JìAM e>pqmd<bn eye" , omenir a 960 Kby'ev Video 
OnemabilG baSdu'artre 80 colonne cer 25 nghc Campo' bile con fLtte 
: o periferiche Commodore do"C serie aro! rivende 


2 350 000 


3 250 000 


Riservato 
agli ingegneri 

Il miglior software tecnico su elaboratori CBM - Commodore 
Ora anche disponibile su Commodore 64 

“STR/FOND” 

L ormai famoso programma per il calcolo delle strutture intelaiate 
piane in c.a,* in zona sismica, che sviluppa e disegna anche le car- 
penterie delle armature, ora agganciato al programma “ FON DA- 
ZIONI" che risolve l'intero graticcio di fondazione proponendo una 
carpenteria sofisticata ed ottimizzata. 

L. 1.200.000 (versione giugno 84 - nostra esclusiva) 

“MURI DI SOSTEGNO” 

A gravità, a mensola ed a contrafforti, anche in zona sismica, se- 
condo il D M. del 21 1.81 
L 300.000 

“PENDI!” 

Analizza la stabilità di un pendio o di un fronte di scavo sotto diver- 
se condizioni e la verifica relativa viene condotta in termini dì ten- 
sioni effettive: la stima dei fattori dì sicurezza viene effettuata se- 
condo i metodi di FeIJenìus, Bishop e Janbu. 

L, 300,000 

“PALI” 

Esegue ia progettazione delle armature e le verifiche di sicurezza 
per fondazioni su paii (plinti o platee). E 1 previsto anche il plinto 
senza pali, con schema, in taf caso, di suolo elastico alla Wìnkler, 
L 700.000 

“A'S.C.L” (Analisi Strutture per Coperture Industriali) 

Calcolo di travature reticolari formanti strutture (in acciaio) per co- 
perture industriali. Verifiche di resistenza e di instabilità laterale per 
ogni asta. Analisi delle sollecitazioni indotte nei pilastri sotto carichi 
trasmessi dalle travature e azioni sismiche, 

L 600.000 



PERIFERICHE 


PRODOTTO 

COMPUTER 

COLLEGABILI 

PREZZO 
(IVA ESCL.) 

(monitor | 


MONITOR MONOCROMATICO 

A fosfori verdi 12" 

Vie 20. C 16 C 64. 
5X64, PLUS 4 

28S000 

MONITOR A COLORI 

Ad olio risofojtiober 14*, con oudio, 

VIC 20, C 16, C 64, 
SX 64, PLUS 4 

69C.000 

(registratori i 


registratore dedicato 

Per memorizzare facilmente programmi e 
dnii sv norma I - cassette magnetiche. 

VIC20.CÓ4, 

120.000 

REGISTRATORE DEDICATO 

Per memorizzare facilmente programmi e 
dall riarmati OOSSé'ltf magnetiche 

C 16.PLUS4 

120 000 

(memorie di massa | 


FLOPPY DISK DRIVI 

Un ila di memora di mossa, drive singolo. 
capacilà ITOKbyles in lineo 

VIC20 r C16X64 r 
SX64, PI US 4 

630,000 

FLOPPY DISK DRIVE 

Unità di memoria di mq^so f dnve doppio, 
cópadtó 1 .Mbytès >n li neo 

C S032SK r C 3096. 

C 3296, C 710, C 
720X610X620 

2.375.000 

FLOPPY DISK DRIVE 

Unirà di memoro di massa, drive singolo, 
copccirà 1 .Mpyiesirt Imea 

C S032SK. C 3096.. 

C 329ó r C 710. C 
720X 610X620 

1 .246.000 


“COMPUTI METRICI” 

Analisi ed elenco prezzi. Metodo veloce e complementare automa- 
tizzato per il computo e la stima dei lavori. 

L. 500,000 

“REVISIONE PREZZI” 

Secondo le disposizioni di legge vigenti. Praticità ed automazione 
consentono di eseguire velocemente revisioni di prezzi anche per 
lunghi periodi. 

L. 300.000 

“ORARIO SCOLASTICO” 

Muovo ed esclusivo “pacchetto” che consente ia stesura dell'orario 
scolastico per ogni tipo di scuola. Indispensabile per la velocità e 
l'imparzialità dell’elaborazione. 

L. 700.000 

Richiedeteci documentazione e output dei programmi di vostro interesse, 
Resterete sbalorditi dalla versatilità e dalla completezza dei nostro software 


IRANGELO COMPUTER Srl 


Via Parisio, 25 - Cosenza 0984 - 75741 







































STAMPANTI 


STAMPANTE PLOTTifl A COLOBI 

SO co Tolleri per llr.go, 4 colon, olio risol u 
nofiediO f 2mm permesso 

Vie 20, CI 6, C 64, 
SX 64, PLUS 4 

375.000 

UNITÀ STAMPANTI 

5 r orripù velocaine-re su corto oomnoìe 
q jon-fo a spore & jl veieo: prOqrcimmi, le'- 
lere. doli. grp!<c.. 

VlC 20, C 16, C 64, 
5X 64, PLUS 4 

515000 




FLOPPY DISK DRIVE 

Unirò d r meTiorio di uva ssa. drive doppio, 
doppio faccia, doppio densità, copeco 2 
MbySes in linea 

C 8032SK, C 3096, 

C 3296, C 710, C 
720, C 6 30. C 620 

2.600.000 

FLOPPY DISK DRIVE 

Unirà dì memoria dì masso, drive doppio, 
doppio laccio, doppio densirà, capacità 7 
Mbyies n |-neo 

C 8032SK, C 8096. 

C 8296. C 710, C 
720. Còl 0,C 620 

2.600.000 

STAMPANTE 

E Vi i mi io* '■ ale, 60 C P5 P 80 cokjn ne ca rro in 
modulo singoloe/o f.onlinuo. 

VlC 20, C I6X*4, 
SX64,PLUS4 

645.000 

STAMPANTE A COLORI 

7 talari, ^StNrpo a motrice di punii, 39 
CP5, 80 colonne. 

VlC 20, C I6XH 
SX64 r PLUS4 

995.000 

STAMPANTE A MARGHERITA 

EiidirozianaV, 3 / CPS, Iravr momenlc 1 a Ir. - 
2ione, slampo lino u Iò5corolferi per li 
nea. 

Vl C 20, C 16, C 64, 
SX 64, Pi US 4 

ì. 195.000 

STAMPANTI 

Bidirezionale od aghi, 60 CPS, 80 co3or', 
ne. 

C 8032SK, C 8096, 

C 8296, C 71G, C 
720X6I0.C62O 

Ó95.000 

STAMPANTE 

Stampo nle od oqEii, 150 CPS, ì 32 colon 
riK, bidneziorote, Ifosonomer lo o trai tare 
e Inziooe. 

C 0O32SK, C 8096, 

C 8296, C 710, C 
720X610X620 

1 .275.000 

P 

STAMPANTE 

Slpmponle O rnanjhcnta, 40 CPS, ìS-ó co- 
torme posso pica, 163 (.otonne pò^^o èlì- 
Ih, ^direzionale, ufilziobile unebe con 
caria do bollo, (rase i-^a mento a Cottole a 
irinone. 

C 8Q32SK, C 8096, 

C 8296. C 710, C 
720X610X620 

3.250.000 

■ 


PRODOTTO 

COMPUTER 

COLLEGABILI 

INTERFACCIA IEEE 4|8 

C onse nre 1 1 cali eq omenro dì tohe le oe r fe 
t che c o*i i nserf acci p I SE E 4 83 

C I6 r C 64. SX 64, 
PLUS4 

COMANDO PER GIOCHI 
(Joystick) 

PermelTe di muoverci inly'le led.Tftzton;, di 
n iz are ' va r 1 g -oc h di movi m e n to e Spa-f o - 
re. 

VlC 20X64, £X64 

COMANDO A MANOPOLA 

PER GIOCHI (Paddi») 

Adepto per giùCh a 7 per tane, esegue 

ir avi meni, ir onzzcniale e 

vellicale 

VlC 20X64. 5X64 

NUOVO SISTEMA OPERATIVO 

P#f 8096SK a per 8032SK cort B Può gesti- 
re fino a 16 programmi re Siderei &multo- 
nearrenTe ir memoria Oà a di spasi zia ne j 
26K perlevcmoòilrc 53K per i pragrommi. 
Potenzio inoli re il Baste con al' ri comandi. 

C 80325 K. C SC96. 
C8296 

64K RAM 

Scnedci di anrpl:amenFo memoria per 
8032 e riu pvo sistemo a peto tivo 11 PM 96 

C 80325X 

CP/MAKER 

Inciemer-ia la memoro interra di 64 K 
RAW. e .iKfrrretTf? 1 uso di tuf'i ì programmi 
CP- M. Sbirdisponib II, Campo fi bile con la 
serie 300074000/8000. 

C 8032SK 

SCHEDA AD ALTA RISOLUZIONE 
GRAFICA 

Compoiibsle o; stilemi delle serie 8000 

C 80325*;. C 8096. 

C 8296 

CAVO PIT/IEEI 

C 3032SK, C 8096, 

C 8296, C 7 10. C 
720. C 610.C620 

CAVO IIEE/IEEE 

C SQ32SK. C 8096, 

C 8296. C 710 C 
720X610X620 

ACCOPPIATORE ACUSTICO 

300 baud 

C 3032SK. C 8096, 

C 8296, C 710. C 
720X610X620 


PREZZO 
(IVA ISCL) 


175.000 


;3.5 OC 


22.500 


95 000 


575.000 


450.000 


720.000 


85.000 


95 000 


695O00 


Eyn COnPUTERS 


tLlTTHMlCR. S.d.f. irta lijracclfl 

5»? 5 ftOMlEvUtCHl {«] tal. «5/M02«-flE!St] C/t poli*?* *.l»l«23 




.yiSfjc-'iAL: 


ratlurjJtnjM': ; : IZC.Kij 

i ■! L'« I l'D.r\':i 

irftt ■ giK r.ii-q :-:ì lo ISq. i..Cj 

iyn*n* * i ■-.••. .i-, -s- oso 

Haliti^ ' HE [D ! &5.K)0 

Affidai r e 1 e-f .. IDI tó.MO 

WtóEEOGfta PH ]3S . (KO 


'«or: : r-qx. 

Cà*/ Vi 70. ODO 

v:ijwìm <c ; 

k.;-i Prc^. : [ 4 :l : 7Ì.GC0 


'vari- 

Cwi '■tare O’L \ ’ iO.KO 
*(f»TU Coaptl^i!) 75,000 
Ptt ipffd IO 70.0CÙ 

gaing 1 * 1, 

E53- K.KO 

[C 3 70. OM 

<1tw fateti : ■ 30,000 

ii se pumi (SI 3J.0Ò0 

- 1CI 65,300 

farse Cape (a 7&,M 

FflU cósy EO; SC, 300 

Inoliarti (01 12G,K0 

r^e eiow id: iso-ooo 

ms* fecW roi w,ooo 

SO et l r e v -:.i .000 

S4 D lagnici "V m.-ooc 


ESTRATTO 

Hlastei- i'C7 (IO, DM 

Teol [01 70. MO 

T h e “jt-ag^F |;.ì - 'IQ.&X 
Zt'n Rtuli Eai^l-Ii 94. DM 
E «a .' : ■£ I 'bù.ioc 
E>ien-dea bjìic (tl 75. DM 

Ccqparts* ID^ M.DOO 

ScfflTpaCipT (&) SO, DM 
Strparbase Di (W.CM 

3*sic MpJ» I ■.' ’■ Sb.tìM 
Tele ’ì [3/M GO.ttti 

T tf»9v P\t£. [CI jg.MO 

affi™ — 

rp-si- i-i Lt r- ì^liar 2% . DIO 

ìs Htp Editar 2%. DKJ 

■Pratectar 7SO.OW) 

IM-iY' J,' 3 re I ic r - SO.OM 


U 1 ! r-aiji le idi 

Piclcgrajli 
►a 5 1 t r .i t -t ' 

hei I s zi i nt I 3 S 
Panar invi ![>|* 
ijin! hj [C • ■ 
JtEC;fll. fai 
*1- i" ' ZO : 


Pfq -f re ce- 


nali l^itlfl 
Kagiiainj I L ; 
FitLlirià ■ ■ 
^Onr-af 'Si 

CQ ec Qnfie : “1 


70, «0 

«,wo 

70, KO 

Hi.CCtJ 
65. OM 
70. MO 

JJO 


ÉD.rao 

ss.wc 

■55-.JDC 

iB.iKC 

/z.dod 


□ EL 


1 i R :■ K, ! E 

Caie cfnirpnics 
Eli. fri-Crn( rfcriitt 
Ff I .'' !£EE C cntr, 

SufE*i j gli. i^fntr. 

[Ut, ET 21-221 
'tji Kter i fT-ae (7 _ 
iPrj^c'ic; 

itiap. fall,' 1-1 Si! 

l*p*r. :(A v:c 

3W V’C 
Jnji ìt Ì<h 
t: leciì i ma;. 1ù 

Vd^Ln no^Eo-iOiio 
Oìl Eprgn prfgr. 
i'i< 


CATALOGO 


GENERALE 


3B,«XW 

«.0» 

rn.«M 

m.W) 

250.000 

I77.0W 

l».oce 

SBO.OM 
H8.000 
Hi, 000 
27.930 
39,500 
12.000 
10C.WO 
H.ODO 


G I D C K [ 

H ; •: •• ;I(« EftlflACGO : finirti AH/ 


ksv.'a.: :h : t a;:avs 

Spthad lSt,000 

siij Serial ?0, ODO 

£ Affli DatU 20.000 

2S.OOQ 

IMI ts.000 

5^Kp&aì& 25.000 

Via^iLf 11.000 

'olflllui [atacchlj J.OQO 
r h;,. Ciani; Ifj.DOC 

Uh|uard ! 0,00(1 

iiallUlca l;,OOQ 

«tllUplin HELP i 12,500 
Patta 5 1S.30C 

f’k.tftfWF 5. SOC 

K'ird Pre.HT 7.MQ 


ÙJiDft Ai C3« H 25. 3DQ 

“(l'jova Mll* 1W,FlM(dul* F- fl^lllìLj. 
. Licite con 1È [MHCdLrÈ ltp , 'Ck'Ej. 

XirtH* <PEPAT:if0 64 JS.lCO 
**Cwi'i:a ■Yd'.-k'-fr ¥ I tri foniTa eari y<ì 
y-tg.jfiiio DlaasiMblef . 4i;,fiiÉfc.ltr, 
'l'k 1 tor mi 


] SEGALI I Al 1S4I 


?fl.OW 


lucro tle 1 eh? »' if«sj#Tio lapere tul 
di iia. Siiti-rwi llprr.i t sv; lai a, 

la Pà-girfa Jat?, le i'Om*. 1o?t. ] 

AulalEiui apprflf ptnd il ! , ]1 SEST . gl- 
DUEflLfi 4 . ’ f rm { hs ci piatii i ine *■ 
spr«*i"i4mr. Hor.nif iwr <h iqa. 

e diiM. 


PtB IhtRICIC EEHWMME 


*'-^uest* rarjilc c' , ! ài j s-r-t’a p^r 
Sliegàarc a tL^-Éndzrt? rff yS*ri TUTTE 
Fi ^r; 4 #.r1cre d®-: prÈdi!ti 'Tàt^iCRr. 
S3D pJ^ir-F- E-ln rflatkes Su ISfi I . 
LiiLuirà fi teriiturà dati e 
un ì ieiiàrn-nl.; - 4P ."W^R E . 'avnlr -S^ 4 ■■ 

DIREClOkV. Ut 5 T iaa □ dplìir perle 
J£EI-JBa,|£E| Sfrial*, flS-257. 
S3 ; *cjj'tn! di euàtì Iurte le 
tlà^ami' (S S, la?4, 3S?4, «F5SC1 , 

W530Z. K22, d.312. Hurr^uil P rO;ramii' 
Fri Cui: BETuPEBD *MJA. (R-KÌ 

aEFJHÉSIEE f ìCd ridufB jr CtT* USE, 

50104 AI PHSCWM. vlfijo 7S,'30C 

*' 1 1 pia' e, M Irte liiryiit e*f y> Sst.A 
dc«f f Cdìtryitg f c(w fy-jic^à 
wes-to ìdmflutte, Cd 1 ot k 


tlal.tr 1(1 , nappe (i metwrij, n 
linguaggio mrc'nn», Tutta la grit uà 
jet Ila ile rd tl 5 i,an ; , 


vJftSO j ! gftAFKj :’1,IK4 

Zone j - - 1 kraro grafica intTe sei?a 
frSlére prggramv-tcrl . Strleàr-fr 

giachi r p sciy Inerti alle 

fWflrl , i; 'FT’inl h 4 BFùf cappi di 
iaiE qI I rt AJ pagiir di lavile. 


léCtOPPl Al CSI AflfilKfl 
£ "a grande noe 4 Td d" Pirnottf "i 

(a " t-g jr ' ■ t iialvji! bfi-Cfi (!*>;•. 
ttioft'lrcl pnograrm’ e nQT’Zie 'ri 
utfrnLi. pllppei! il 1 1 1 pvfr iti Sii "0 y« 
di cn 1 lesinerie e Tca«dio pcop le 
E-m. CHiE«fit OfW.XC 1,1! 

atCfrpp ’alnrp , tec.™ *■ baecee, d*;: 


Csgngne 


C.A.P, 


IVi'JATESI ■ 


. o EATAI LG J 


C EOE HDA/COM [ I ECM L_ 

L -£lHCO ■' h 'Ultra , >Cirtrid9d l ■''tur Mnellfr (*i Jnflfifi 

: prt’fl , 1 rar.nc che pifr ■ -nan^ali .'„:.ng al nf«o di iV*.?er »p.edl'CLOA| !n CDftte'a SUOne »C4 1 CO 1 fi* t E. 5.500 pai iaelfr dù«UH t varili. 
Con «rytL(ip>4C0 SPCDl Z10K GUAIME TA.5CQNT ; FEH [ Hi, tiEYtKll T«[ . CATALOGO GWTD] fd MlChlt^A. mSLR] FÌNTO GRATUITO EH 

LISTA se asì ISOLATO. TUTTI l hF£| »tìV] TA' «Hi A rwÉSHO. 


OCATW.OM 5; Svi: 


ac? - Computer Quia 













































INVIARE TUTTA LA PAGINA ANCHE SE SI UTILIZZA UNA SOLA SCHEDA 
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ABBONAMENTO 


Registrate il mio abbonamento annuale a Commodore Computer Club, Poiché sono a cono- 
scenza dei fatto che in NESSUN CASO viene dato corso all’abbonamento se non utilizzando il 
modulo di conto corrente, ho provveduto oggi stesso a versare il canone dì L. 22,000 a mezzo 
c/c postale n, 31532203 intestato a: 

Commodore Computer Club, VJe Famagosta, 75 - 201 42 Milano, 



a NUMERI ARRETRATI 


Considerando che i numeri 5, 6 e 8 sono esauriti vogliate inviarmi numeri..,, 

al prezzo di L 5.000 cadauno per un totale di L Sono a conoscenza che i fascicoli 

suddetti non saranno inviati in contrassegno e, pertanto, ho provveduto oggi stesso a versare il 

canone di L... .. a mezzo c/c postale n. 3 1 532203 intestato a: 

Commodore Computer Club, VJe Famagosta, 75 - 20142 Milano 



m STATISTICA 


Non posseggo un computer □ 

Posseggo un C64 

Posseggo un VIC20 * .. 

Posseggo un Commodore Plus 14 i,,,,,,..,— ...... 

Posseggo un Commodore Plus 16 

Posseggo un registratore dedicato 

Posseggo un drive 1541 , 

Posseggo una stampante ..... 

Posseggo un monitor * 


si 

q .. 

i. no 

□ 

sì 

ri 

.. noD 

si 

□ ., 

.. no 

□ 

si 

□ .. 

.. no 

□ 

si 

□ 

.. no 

□ 

si 

□ .. 

. . no 

□ 

si 

□ .. 

no 

□ 

si 

□ .. 

,, no 

□ 



COLLABORAZIONE 


A titolo di prova vi invio un artìcolo e la cassetta disco...... 

col programma che intendo proporre per la pubblicazione di cui garantisco l'originalità. 



... - - - 414,1 4..", Il, r h ■ i hlltia. ■ r. .i. i .. .... . . . i. 4 , , I 
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2 ' ' > ' • . f J 7- '<*■■ ( * • • ; , - |-;V* 
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INVIARE IN BUSTA 
CHIUSA E AFFRANCANDO 
SECONDO LE TARIFFE VIGENTI A 

COMMODORE COMPUTER CLUB 

V.le Famagosta, 75 
20142 Milano 
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INVIARE TUTTA LA PAGINA ANCHE SE SI UTILIZZA UNA SOLA SCHEDA 



Presenta 



Ufo pa 
Vocab 















HIGH PRECISION A COLPO SICURO! 


M EE ■ Memorie per Elaboratori Elettronici S p A 

forniture per CenEn Elaborazione Ca‘ 
Sede Amen va 20 u 4 Milano ■ Via Sor . 
Tel. 498A541 (A linee ra.i Telex 124456 Vi E 
Fi J ali e Agenzie Milane- Bergamo - Tonno 
Biella - Padova ■ Parma - Bologna - Firenze - Ar 
Roma - Napoli ■ Calsnia Oristano Bari Geno, ì 
Bolzano ■ Mestre 


High precision Dato Memories 

é tecnologia avanzata di costruzione. 

É il supporto magnetico testato ai (imiti 
della resistenza con garanzia di assoluta 
affidabilità. 

É avanguardia tecnologica per assicurare 
la massima protezione dei dati, 
anche, nelle situazioni più critiche, 


